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ABSTRACT 


The  second  order  parabolic  partial  differential 
equations,  arising  from  diffusion  processes,  are  currently 
integrated  by  two  types  of  numerical  procedures  :  the 
explicit  and  the  implicit.  These  various  procedures 
have  been  interpreted  by  a  unified  approach  based  on 
matrix  theory.  By  discretizing  the  space  derivatives, 
the  second  order  partial  differential  equation  can  be 
converted  into  a  first  order  matrix  differential  equation. 
The  existing  numerical  methods  have  been  shown  to  result 
from  different  splittings  of  the  coefficient  matrix  in 
the  above  equation.  Further,  the  stability  of  solution 
has  been  examined  in  terms  of  the  properties  of  the 
integrating  matrix  of  each  method.  The  application  of 
matrix  theory  offers  a  more  general  method  of  stability 
analysis  of  numerical  procedures  than  the  von  Neumann 
technique . 

The  alternating  direction  explicit  procedure 
( ADEP )  was  extended  to  the  three-dimensional  case.  The 
accuracy  and  the  computational  speed  of  ADEP  was  compared 
with  the  best  alternating  direction  implicit  procedure. 

The  alternating  direction  implicit  procedures 
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(ADIP's)  suitable  for  linear  problems,  become  considerably 
more  involved  in  solving  nonlinear  parabolic  problems. 

The  number  of  integration  stages  increases  with  the 
dimensionality  of  the  problem0  On  the  other  hand,  the 
solution  of  multi-dimensional  nonlinear  problems  by 
the  ADEP  has  been  shown  to  be  not  significantly  more 
difficult  than  the  solution  of  the  linear  case. 

Iterative  procedure  required  for  this  case  involves 
variable  or  variables  at  one  grid  point  only.  Further, 
even  in  a  three-dimensional  problem,  the  number  of 
integration  stages  is  only  two.  In  the  solution  of 
nonlinear  and  large  linear  systems,  ADEP  is  computationally 
faster  than  any  of  the  ADIP's0 

The  application  of  ADEP  has  been  demonstrated 
in  solving  three  parabolic  problems  of  progressively 
increasing  complexity,  namely,  1)  a  linear  mathematical 
model  of  an  oil  reservoir,  2)  a  nonlinear  model  of  a 
gas  reservoir,  and  3)  simulation  of  two-phase  flow  in 
a  water-injected  oil  reservoir,  which  is  characterized 
by  two  simultaneous  nonlinear  parabolic  partial 
differential  equations.  The  solution  of  the  linear 


:  . 


problem  by  ADEP  was  in  good  agreement  with  that  of  ADIP 
of  Peaceman  and  Rachford.  In  the  gas  reservoir  problem, 
though  the  model  was  nonlinear,  simple  relation  between 
the  properties  of  the  gas  permitted  explicit  solution 
by  ADEP.  In  the  case  of  two-phase  flow,  the  simultaneous 
nonlinear  algebraic  equations  given  by  ADEP  were  solved 
iteratively  by  the  Newton-Raphson  procedure.  The 
solution  converged  in  3-4  iterations. 

In  all  the  three  cases,  the  behavior  of  the 
reservoirs  predicted  by  ADEP  has  been  found  to  be 
consistent  with  that  encountered  in  practice 0 
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Io  INTRODUCTION 


Ever  since  Newton  invented  Calculus  in  the 
seventeenth  century,  differential  equations  have  served 
to  describe  precisely  and  adequately  many  natural 
phenomena 0  A  large  number  of  physical  systems,  being 
multi-dimensional  in  geometry  and  nonlinear  in  behavior, 
are  characterized  by  nonlinear  partial  differential 
equations  0 

Unfortunately,  however,  most  partial  differential 
equations,  particularly  the  nonlinear  type,  have  proved 
to  be  most  difficult  to  solve  by  classical  methods 0  Among 
these,  parabolic  partial  differential  equations  constitute 
an  important  class 0  Until  very  recently,  the  solution 
of  real  problems  involving  these  equations  were  either 
not  attempted  or  could  be  obtained  only  on  reducing  the 
equations  to  simpler  approximate  forms  and  solving  them 
by  conventional  methods 0  Analytical  solutions  of  many 
of  these  idealized  versions,  available  in  standard 
texts  [6,  11,  3],  are  mainly  of  academic  interest,, 

In  keeping  with  the  general  trend  of  sophisti¬ 
cation  in  science  and  technology  in  recent  times,  a  more 
realistic  representation  of  physical  systems  is  being 
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insisted  upon.  In  a  number  of  practical  problems  this 
meant  preservation  of  one  or  more  of  the  following 
features : 

1.  Non-homogeneity  of  the  medium,  leading 
to  partial  differential  equations  with 
variable  coefficients; 

2.  Nonlinear  behavior  of  the  system; 

3.  Irregular  geometry  of  the  system  boundary. 

The  advent  of  high-speed  computing  machines  and 
the  recent  advances  in  numerical  analysis  have  brought 
great  promise  in  finding  precise  solutions  of  involved 
differential  equations.  The  basis  of  this  approach  is 
to  divide  a  multi-dimensional  system,  irrespective  of 
its  geometry,  into  a  suitable  network  of  small  elemental 
regions  or  cells  and  to  reduce  the  differential  equation 
to  a  set  of  algebraic  equations,  each  of  which  approxi¬ 
mates  the  behavior  of  the  individual  cell.  Given  a 
sound  technique,  the  solution  of  such  a  system  of 
algebraic  equations  is  routine  on  a  modern  high-speed 
computer . 

This  study  is  concerned  in  general  with  the 
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numerical  integration  of  the  second  order  parabolic 
partial  differential  equations  of  the  form: 
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where 


T  =  T  (x,y,z,t) 


x,y,  z 

t 

g 

s 

K 


=  space  coordinates 
=  time 
=  capacity 
=  source 

=  rate  coefficient 


This  equation  covers  the  two  cases  mentioned 
above f  namely  1)  the  linear  equation  with  variable 
coefficients  when  g  and  K  are  functions  of  x,y,z,  and  t 
only,  and  S  is  at  most  a  linear  function  of  T,  and  2) 
the  nonlinear  equation  when  g  and  K  are  also  functions 
of  T „ 


The  choice  of  parabolic  equations,  in  particular, 
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was  motivated  by  two  specific  considerations,,  Firstly,  a 
number  of  diffusion  processes  are  characterized  by  this 
equation,  and  development  of  a  suitable  method  of  solution 
to  equation  (1-1)  would  be,  hopefully,  a  contribution  in 
these  areas  in  general 0  These  processes  include  transient 
heat  conduction,  mass  diffusion  with  chemical  source,  fluid 
flow  through  porous  media,  and  time-dependent  neutron 
transport  in  a  nuclear  reactor.  The  second  consideration 
was  the  growing  demand  for  efficient  mathematical  modelling 
of  petroleum  reservoirs  whose  behavior,  as  will  be  seen 
subsequently,  is  well  represented  by  equation  (1-1) . 

Broadly,  the  first  part  of  the  thesis  deals 
with  the  development  of  a  general  numerical  technique 
suitable  for  solving  parabolic  equations  of  the  type 
(I-l)o  The  proposed  method  has  been  found  to  be 
particularly  advantageous  for  solving  nonlinear 
equations.  The  application  of  this  technique  in  the 
study  of  three  types  of  petroleum  reservoirs  constitutes 
the  second  part.  These  types  are  associated  with  pro¬ 
gressively  complex  equations  namely;  1)  a  linear  partial 
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differential  equation  representing  a  liquid  petroleum 
reservoir,  2)  a  nonlinear  parabolic  equation  character¬ 
izing  a  gas  reservoir,  and  finally,  3)  a  set  of 
simultaneous  nonlinear  partial  differential  equations 
which  mathematically  simulate  the  dynamics  of  two- 
phase  flow  in  a  water-injected  petroleum  reservoir. 

The  predicted  performance  of  these  reservoirs  has 
been  found  to  be  consistent  with  their  known  normal 
behavior . 


II.  GENERAL  THEORY  AND  LITERATURE  REVIEW 


The  general  theory  of  numerical  solution  of 
parabolic  partial  differential  equations  is  perhaps  best 
discussed  by  reviewing  some  important  numerical  methods 
and  analyzing  them.  Of  fundamental  importance  in  the 
numerical  solution  of  partial  differential  equations 
are  the  concepts  of  convergence  and  stability.  These 
are  defined  and  applied  in  the  analysis  of  some  finite 
difference  schemes.  For  convenience,  consideration  of 
the  numerical  methods  in  this  chapter  is  confined  to  the 
linear  two-dimensional  case  of  equation  (1-1)  although 
it  can  be  extended  to  the  three-dimensional  case  as 
well . 

The  physical  system  under  consideration  is 
defined  by  a  region  R  bounded  by  a  closed  curve  C, 
as  shown  in  Figure  1.  The  behavior  of  the  interior  of 
R  is  governed  by, 

9T  8  9  T  8  8  T 

g  (x ,  y )  —  =  —  [K  (x ,  y )  — ]  +  —  [K(x,y)  — ] 

9t  9x  8x  8y  8y 


+  S  (x ,  y ,  t ) 


(II-l) 


FIG.  1  TWO-DIMENSIONAL  MODEL  OF 

PHYSICAL  SYSTEM 


where  g,  K ,  and  S  are  known  functions.  Typical  initial 
and  boundary  conditions  for  the  problem  are: 


I.C.  T(x,y,o) 


f (x,y) 


B.C.  T  (x  ,y  ,  t) 


X 


3  T 


on  the  boundary  C  (II-2) 


or 
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where  x  is  some  known  function  of  x,y,  and  t,  and  y  is 
the  normal  to  the  boundary.  The  objective  is  to  determine 
T  satisfying  (II-l)  and  (II-2)  .  The  approach  of  numerical 
solution  is  to  find  T  at  discrete  points  in  the  x-y 
region  and  in  time  t.  To  this  end,  the  region  R  is 
divided  into  a  network  of  elemental  regions  or  cells, 
each  of  which,  designated  as  r ^ ,  is  situated  around  the 
point  (x^,  y^)  and  of  size  Ax  Ay.  The  grid  points  are 
numbered  in  the  "typewriting"  order.  A  simple  network 
of  a  two-dimensional  region  is  shown  in  Figure  2. 


Let 


T  (x,y,t) 
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( ri ) 

To  find  T_/  at  any  grid  point,  equation  (II-l)  is 
integrated  over  the  corresponding  cell  r , „  On 
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FIG.  2  TWO  -  DIMENSIONAL  NETWORK 
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approximating 


g (x,y) 
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r . 
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—  dxdy  ^  - 

3 1  dt 


g(x,y)  dxdy  ( 1 1—  3 ) 
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equation  (II-l)  is  rewritten  as: 
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( II-4 ) 


Since  g (x,y)  and  S(x,y,t)  are  known,  their  integrals 
over  each  r^  may  be  readily  evaluated  to  any  desired 
degree  of  accuracy 0  The  integration  on  the  remaining 
terms  is  performed  using  Green's  Theoremc  According  to 
this  theorem  for  any  two  differentiable  functions F^ (x ,y) 
and  F2  (x,y)  defined  in  r^, 


3F 1 

( - 

3  x 


3F2 

— — )  dxdy  = 


( II-5 ) 


r  . 
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3y 


(F 1  dy  +  F2  dx) 
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where  is  the  boundary  of  the  cell  r^  (Figure  3) . 
Then,  equation  (II-4)  becomes: 


dT  . 
i 

dt 


9 (x,y) 


dxdy 


3  T 

K —  dx] 
3y 


+ 

J  . 


S (x ,  y ,  t)  dxdy 


( II-6 ) 


The  line  integral  of  (II-6)  is  taken  along  the  boundary 
of  the  cell  in  the  positive  sense  (Figure  3) .  On 
approximating  each  derivative  in  (II-6)  by  a  central 
difference,  and  using  uniform  grid  sizes. 
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FIG.  3  INTEGRATION  OVER  A  CELL 
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The  procedure,  described  by  Varga  [39],  is 
general  and  can  be  applied  to  the  numerical  integration 
of  equation  (II-4)  over  any  polygonal  region  [27]  c  In 
the  case  of  three-dimensional  problems,  integration  is 
performed  similarly  using  Stokes'  Theorem, 

Application  of  this  procedure  to  all  the  grid 
points  leads  to  a  set  of  m 2  linear,  first  order  ordinary 
differential  equations,  where  m  is  the  number  of  grid 
points  along  a  row  in  either  direction,.  These  equations 
may  be  written  in  matrix  notation  as: 


dT 

G  —  =  A  T  ( t )  +  S(t)  +  T_(t)  t  >  0 

dt 


dT 

or  —  =  G~ 1  A  T(t)  +  G~ 1  S(t)  +  G_1  _r(t)  (II-8) 

dt 


and  T ( 0 )  =  T 

—  — o 

where  T  =  solution  vector  for  all  grid  points  at 

time  to 

G  =  diagonal  matrix  whose  diagonal  entries 

are  the  integrals  on  the  right  hand  side 


of  ( II-3 ) . 
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A  =  linear  matrix  operator  of  order  m2  x  m2 
S  =  vector  whose  elements  are  integral 

averages  of  S(x,y,t);  points  adjacent 
to  the  boundary  are  affected  by  the 
boundary  conditions 0 

T  =  initial  condition  vector  whose  elements 
— o 

are  integral  averages  of  f(x,y)  over 
each  cell. 

=  vector  of  truncation  errors  resulting 

from  discretization  of  space  derivatives. 

Assuming  that  the  truncation  error  is  small, 
du 

G  —  =  A  u  (t)  +  S  (t)  ( II-9 ) 

dt 

where  u(t)  approximates  T(t) 0 

Matrix  G  is  diagonal  and  positive  definite.  Matrix  A  has 
negative  diagonal  entries  and  non-negative  off-diagonal 
entries.  Further,  A  is  diagonally  dominant,  symmetric 
and  hence,  a  negative  definite  matrix. 

Integration  of  this  equation  in  the  semi¬ 
discrete  form  in  the  classical  manner  to  yield  a  closed 


' 
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form  solution  is  known  and  will  be  referred  to  later. 
The  main  concern  here  is,  however,  with  the  solution  of 
a  completely  discrete  form  of  (II-9) . 


Perhaps  the  most  convenient  and  also  common 
approximation  of  the  derivative  on  the  left  hand  side 
of  ( 1 1  —  9 )  is  by  forward  difference: 


du 


(n+1)  (n) 

u  -  u 


dt 


At 


( 11-10 ) 


where  u 


(n) 


designates  u  at  time  t  =  nAt,  This  may  be 

du 

considered  as  an  approximation  of (— )  at  some  time 

dt 

between  (n+1)  At  and  nAt0  It  is  reasonable  therefore 


that  the  term  A  u  in  (II-9)  is  also  expressed  as  a 

This  is  usually 


.  ,  ,  ,  jr  (n)  ,  (n+1) 

weighted  average  of  u  and  u 


accomplished  by  splitting  the  matrix  A  into  two,  one 

of  which  premultiplies  u^1^,  and  the  other  premultiplies 

(n+1) 

u 


If  A  =  M  +  N 

the  numerical  integration  of  (II-9)  then  leads  to: 
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G 


(n+1)  (n) 

u  -  u 


At 


[M  u(n+1)+  N  u(n)]  +  — 

At 

r  (n+1 ) At 

j  S(t)  dt  (11-11) 
nAt 


Rearranging , 
(n+1) 


u 


=  [I  -  At  G“ 1 M] “ 1 [I  +  At  G“ 1 N ]  u 


(n) 


+  [I  -  At  G” 1 M] _ 1 G” 1 


J 


f (n+1 ) At 

S(t)  dt 


(H-12) 


nA  t 


Let  P 
R 


=  [I  -  At  G-1M]  (assumed  nonsingular) 


=  [I  +  At  G- 1 N] 


(11-13) 


In  reviewing  the  existing  numerical  methods, 
an  attempt  is  made  to  show  how  different  matrix  splittings 
of  A  give  rise  to  different  schemes  and  also  to  show 
their  effect  on  the  numerical  solution.  Besides  the 
above  physical  argument,  the  choice  of  any  splitting  of 
matrix  A,  is  guided  by  four  considerations  which  have  an 
important  bearing  on  the  numerical  solution: 

10  Consistency  and  convergence 
2,  Stability 
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3 „  Accuracy 

4.  Simplicity  of  the  method  of  solution. 

The  first  two  considerations  are  of  fundamental  importance 
and  provide  the  primary  basis  for  discussing  different 
finite  difference  approximations  and  their  consideration 
follows o  The  remaining  two  features  will  be  discussed 
subsequently  for  some  selected  schemes. 

Convergence  and  Stability 

The  basic  notion  of  an  approximation  is  that 
of  a  scheme  whereby  the  error  can  be  made  as  small  as 
one  desires  so  that  the  error  will  actually  tend  to 
zero  in  the  limito  The  concepts  of  consistency  and 
convergence  are  concerned  with  the  substance  of  this 
notion  and  are  interrelated.  The  following  formal 
definitions  are  from  Lax  and  Richtmyer  [25]. 

The  linear  parabolic  equation  (II-l)  is 
approximated  in  general  by  the  finite  difference 
analog  (11-12)  which  may  be  rewritten  as: 


u(n+l)  _  B  Ax,  a y, 


®  «  o 


(11-14) 


' 


18 


where 

B  =  P-1R  =  a  linear  matrix  operator, 

At,  Ax,  Ay  =  increments  in  time  and  space 

The  integral  term  on  the  right  hand  side  of 
(11-12)  is  omitted.  Assuming  At,  Ax,  Ay  are  related  by 


Ax  =  gx (At) 


Ay 

then, 

u<n+D 


g  2 (At) 

B  [At,  gx (At) ,  g2 (At) 
C  (At)  u(n) 


u 


(n) 


(H-15) 


From  equations  (11-10)  and  (11-15),  it  is  seen  that 
“C  ( A  t )  - 1 

— -  u  is  indirectly  an  approximation  of  the 

At 


right  hand  side  of  equation  (II-l).  Calling  the  latter 
A'  T,  equation  (11-14)  is  a  consistent  approximation  if 


Lim  o 
At+0 


C (At) -I 

G 

U  -  A'  T 

At 

=  0 


uniformly  in  t„  In  other  words,  a  finite  difference 
approximation  to  a  differential  equation  is  consistent 


■ 
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if  the  former  approaches  the  true  solution  of  the 
differential  equation  when  the  increments  of  the 
independent  variables  (At,  and  hence  Ax,  and  Ay) 
vanish.  For  linear  problems,  consistency  of  an 
approximation  can  be  ascertained  by  examining  the 
truncation  error. 


In  considering  convergence,  the  initial 
condition  is  also  taken  into  account.  Let  E(t)  be 
an  operator  such  that  the  solution  at  any  finite 
time  t,  u  (t)  =  E(t)  Tq  ,  being  the  initial 
condition.  Approximation  (11-14)  is  convergent 
for  the  initial  value  problem  if  for  any  initial 

condition  T  ,  and  for  any  sequence  At,  n  such 

36  36 

that  A^t+0  and  n^  A^t->t,  then, 


C(A^) 


n 


'T  -  E  ( t )  T 
— o  — *  — o 


+  0 


It  is  seen  from  the  foregone  that  consistency  and 
convergence  are  concerned  with  the  question,  "Does 
the  finite  difference  solution  u/n^  minus  the  true 
solution  T(nAt)  tend  to  zero  as  At,  Ax,  and  Ay  vanish 


' 
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for  a  fixed  time  t?"  On  the  other  hand,  the  concept  of 
stability  is  concerned  with  the  question,  "Is  there  a 
limit  to  | u -T(nA  t) |  for  any  n,  for  fixed  A  t,  Ax, 

Ay  and  £=  1 ,  2 ,  3 ,  .  .  .  ?  " 

More  than  one  formal  definition  of  stability 
exists  in  the  literature  [31,36,20].  O'Brien,  Hyman, 
and  Kaplan  [31]  relate  stability  to  growth  of  rounding 
errors,  whereas  Richtmyer  [36]  defines  it  in  terms  of 
properties  of  the  matrix  operator  in  the  finite  difference 
approximation.  Following  the  latter,  the  essence  of 
stability  is  that  there  should  be  a  limit  to  the  extent 
to  which  any  component  of  an  initial  function  can  be 
amplified  in  the  numerical  procedure.  If,  in  a  sequence 
of  calculations  with  A  t+0 , each  calculation  is  carried 

X/ 

out  from  t  =  0  to  t  =  t1(  then  the  operators  used  in 
equation  (11-15)  are, 

Cn  (A  t)  0  <  nAt  t 

36  _L 

£  =  1,2,3,  ...  (11-16) 

all  applied  to  the  initial  condition  vector  .  The 
approximation  C(A  t)  is  said  to  be  stable  if  ||Cn  (A  t)|| 

X/  "  X/ 
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is  bounded  for  any  sequence  A  t  >  0,  A  t+0  as  £  ->  ». 

X/  X/ 

This  is  ensured  if  the  spectral  norm 1 1  C(A  t)  ||  (or  the 

Xj 

spectral  radius  p (C(A  t) ) ,  if  C  is  symmetric)  is  less 

X/ 

than  unity.  It  may  be  noted  that  the  concept  of 
stability  has  no  reference  to  the  differential  equation, 
but  is  an  intrinsic  property  of  the  difference  scheme. 

In  the  practical  analysis  of  difference  approx¬ 
imations,  it  would  suffice  if  only  two  of  these  three 
criteria  are  satisfied  since,  according  to  Lax's 
Equivalence  Theorem  [25] ,  "given  a  properly  posed 
initial  value  problem  and  a  finite  difference  approxi¬ 
mation  C ( A t )  to  it,  that  satisfies  the  consistency 
condition,  stability  is  a  necessary  and  sufficient 
condition  to  ensure  that  C(At)  is  a  convergent 
approximation" . 

The  analysis  of  a  finite  difference  approxi¬ 
mation  for  stability  may  be  carried  out  either  by 
matrix  methods  according  to  the  above  definition  or  by 
the  von  Neumann  technique.  The  latter,  which  is  more 
commonly  used  in  the  literature,  is  based  on  expanding 
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an  individual  error  at  a  grid  point  in  a  finite  trigono 
metric  sum  and  studying  the  decay  or  growth  of  the  time 
dependent  term.  At  this  point,  a  brief  review  of  the 
literature  on  convergence  and  stability  relevant  to 
parabolic  equations  is  in  order. 

Much  of  the  work  on  the  concepts  of  conver¬ 
gence  and  stability  is  confined  to  linear  systems. 
Perhaps  the  earliest  work  on  convergence  of  finite 
difference  schemes  is  by  Courant,  Friedricks,  and  Lewy 
[10] c  Essentially  equivalent  results  on  convergence 
and  also  on  stability  were  obtained  by  J.  von  Neumann 
and  were  reported  at  length  by  O'Brien,  Hyman,  and 
Kaplan  [31] 0  These  authors  detailed  the  Neumann 
technique  of  stability  analysis  of  the  classical 
explicit  and  implicit  finite  difference  schemes  for 
parabolic  as  well  as  hyperbolic  equations.  This 
technique  is  limited  to  linear  systems.  Its  applica¬ 
tion  to  the  case  of  a  linear  equation  with  variable 
coefficients  is  not  straight  forward.  On  the  other 
hand^the  matrix  method  of  stability  analysis  is  more 
general  and  can  determine  the  stability  criterion  for 


. 
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the  case  of  variable  as  well  as  constant  coefficients. 

In  some  cases,  however,  it  may  require  the  determination 
of  the  maximum  eigenvalue  of  the  integrating  matrix. 

The  method  automatically  takes  boundary  conditions  into 
account.  The  concept  of  stability  and  its  interrelation 
to  convergence  were  variously  interpreted  in  the 
literature.  The  interpretation  given  by  O'Brien  et  al 
[31]  and  Richtmyer  [36]  were  stated  earlier.  Evans, 
Brousseau,  and  Keirstead  [20]  contended  that  the  ideas 
of  stability,  convergence,  and  error  propagation  were 
intrinsically  unrelated.  Specifically,  they  showed 
how  an  unstable  scheme  diverged  even  if  the  rounding- 
off  errors  were  zero,  Douglas  [14]  dealt  with  this 
subject  at  length  and  concluded  that  "for  a  wide  class 
of  difference  analogues  of  parabolic  partial 
differential  equations  with  time-independent  co¬ 
efficients,  stability  implied  convergence  in  the  mean". 
The  stability  analysis  of  a  limited  class  of  nonlinear 
problems  was  described  by  Douglas  [14] . 


In  summary,  the  von  Neumann  technique  of 


' 
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stability  analysis  is  adequate  for  the  linear  system 
with  constant  coefficients.  If  the  coefficients  are 
variable,  the  application  of  the  technique  is  not 
straight  forward.  The  matrix  method  of  stability 
analysis  is  more  general.  Techniques  applicable  to  the 
nonlinear  systems  need  to  be  developed. 

Review  of  Numerical  Methods 

The  existing  numerical  methods  may  now  be 
examined  with  reference  to  the  generalized  approxi¬ 
mation  represented  by  equation  (11-12) .  In  this 
review,  two  practically  important  considerations  are 
borne  in  mind: 

1.  stability  of  the  solution  which  is 
ensured  if  the  spectral  norm  of  the 
coefficient  matrix  (P_1R)  in  (11-12) 
is  less  than  unity; 

2.  Computational  ease  of  inverting 
matrix  P. 


The  survey  article  by  Douglas  [18]  provides  an 


}  389  X 
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excellent  source  on  the  numerical  methods  for  parabolic 
partial  differential  equations.  Important  among  the 
finite  difference  approximations  of  equation  (II-l) 
are  the  Forward  Difference  Explicit  (FDE)  Method,  the 
Backward  Difference  Implicit  (BDI)  Method,  the  Crank- 
Nicolson  procedure,  the  Alternating  Direction  Implicit 
Procedure  (ADIP) ,  and  the  Alternating  Direction 
Explicit  Procedure  (ADEP) .  The  structure  of  these 
schemes  may  be  visualized  from  the  computational  models 
shown  in  Figure  4 „ 

If  the  integral  in  (11-12)  is  represented 
by  S',  the  generalized  approximation  may  then  be  re¬ 
written  as: 

=  [M  u(n+1)  +  N  u(n)  ]  +  (AtyV 

or 

u(n+1)  =  [I-At  G- 1 M] “ 1  [ I  +  A t  G” 1 N]  u(n) 


u 


(n+1) 


-  u 


(n 


At 


+  [I-At  G“ 1 M] ” 1 G“ 1 S ' 


(H-17) 
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Forward  Difference  Explicit  (FDE)  Method 

This  method  is  computationally  very  simple 
The  matrix  splitting  is: 


and 


u 


N 

M 

(n+1) 


A 

0 


=  [I+At  G“ 1 N]  u(R)  +  G” 1 S 


'"1  c  • 


(11-18) 


so  that  no  matrix  inversion  is  involved  in  solving  for 
(n+1) 


u 


The  known  is  extrapolated  to  obtain  u^n+^ 


The  simplicity  of  this  method  is  severely  offset  by  its 
limited  stability.  Let  each  matrix  (P_1R)  be  called 
after  the  method.  Then,  the  forward  difference  matrix 
is  given  by. 


BFDE  =  II+At 


Let  K  and  g  be  constant;  matrices  A  and  are 

^  —  —FDE 

symmetric.  Then, 


d  il_  /-a  \  -  max 

—FDE  II  p  —FDE  i 


At 


1  + 


A  . 
1 
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where  A^  are  the  eigenvalues  of  A.  Stability  requires 
that : 

At 

1  >  1  +  —  A  .  >  -  1  for  all  i 

l 

g 

Since  A  is  negative  definite,  the  left  hand  side 
inequality  is  trivially  satisfied.  The  most  stringent 
condition  on  the  right  hand  side  is  given  by: 

At 

1  -  -  I  A  .  I  *  -  1 

1  l 'max 

g 


On  substituting  A .  <  4k (- - -  +  - )  ,  this  condition 

^  1  l'max  ^  —2  -7 — 2 

Axz  Ayz 


leads  to  the  criterion: 


k  1  1 

+  - )  =  1/2 


At  —  ( 

max  -r—  2  —2 


g  Ax  Ay 


Similarly,  the  criterion  for  the  three-dimensional  case 
may  be  shown  to  be: 


At 

max 


k  1  1  1 

—  ( - -  +  -  +  - ) 

g  Ax2  Ay2  Az2 


1/2 


29 


Backward  Difference  Implicit  (BDI)  Method 

In  contrast  to  the  FDE  Method ,  the  matrix 
splitting  in  the  BDI  Method  is: 

M  =  A 
N  =  0 

and 

u(n+1)  =  [I- At  G_1M]-1u(n)+  [I-At  G~ 1 M]  G_1 S '  (11-19) 

Since  M  has  five  non-zero  entries,  five  unknowns  are 
coupled  in  this  equation  at  each  grid  point,  leading  to 
a  set  of  simultaneous  equations.  The  solution  involves 
for  each  time  step  the  inversion  of  a  matrix  of  order 
m2  x  m2  in  a  two-dimensional  problem,  where  m  is  the  number 
of  grid  points  in  the  system  in  each  direction.  The 
computational  problems  are  therefore  enormous  for  any 
but  a  small  value  of  m.  The  superior  feature  of  this 
method  is  its  unlimited  stability.  The  inherent 
stability  of  the  method  is  shown  by  the  BDI  matrix: 

SfiDI  =  [I-At  G-l A]-l 


30 


Since  matrix  A  is  negative  definite  and  G  positive 
definite , 


p(B 


BDI 


'  1 

1-AtX ( G~ 1 A) 


< 

max . 


1  for  any  At  >  0. 


The  matrix  splittings  in  the  FDE  and  the  BDI  methods  are 
limiting  cases  since  one  of  the  matrices  M  and  N  is 
taken  as  £.  It  is  therefore  interesting  to  examine 
the  nature  of  their  solutions.  The  truncation  error  for 
the  FDE  approximation  may  be  obtained  from  Taylor  series 

expansion  of  T  (x-Ax,y)  ,  T  (x+Ax,y)  ,  T^(x,y), 

(n)  (n)  (n+1)  (n+1/2) 

T(x,y-Ay),  T  (x,y+Ay) ,  and  T  (x,y)  about  T  (x,y)  . 

[T ( B-A  3)  -  2T(0)  +  T ( 6+A  3 ) ] 

Let  Apr  =  - 

6  AB2 

and  assume  k/g  =  1,  for  simplicity. 


Assuming  that  T(x,y,t)  is  sufficiently  differentiable 
with  respect  to  t,x,  and  y,  the  truncation  error  for 
the  FDE  method  is  given  by: 
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tfde  ~ 


[ T-T  -T 
P  xx  yy 


]- 


(n+1)  (n) 

T  (x,y)-T(x,y) 


At 


A2T^-  A2T^ 
x  y 


At 

2 


(T,  +  T  )  + 

txx  tyy 


Ax‘ 


12 


T  + 
xxxx 


Ay2 

-  T  +  .  .  . 

12  YYyy 


where  the  derivatives  on  the  right  hand  side  are  evaluated 

at  (x,y,t+  — )  .  Similarly,  the  truncation  error  of  the 
2 

BDI  method  is  given  by: 

At  Ax2  Sy2 

=  -  -  (T,  +  T  )  +  -  T  +  -  T  +  .  .  . 

BDI  2  txx  tyy  12  xxxx  12  yyyy 

Note  that  the  leading  terms  of  the  truncation  errors  in 
the  two  methods  are  of  the  same  magnitude  but  of  opposite 
sign.  The  actual  errors  are  also  of  opposite  sign  as 
shown  by  the  typical  solutions  of  the  two  methods  (Figure 
5) .  The  FDE  Method  approaches  the  true  solution  from 
below,  whereas  the  BDI  solution  approaches  it  from  above 
[38]  . 


Crank-Nicolson  Procedure 

The  above  truncation  errors  suggest  that  a 
combination  of  the  FDE  and  the  BDI  schemes  should  give 
an  improved  solution,  since  the  truncation  error  will 


FIGURE  5:  IMPLICIT  &  EXPLICIT  METHODS 
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then  be  of  second  order  with  respect  to  At.  Taking 
advantage  of  this.  Crank  and  Nicolson  [12]  proposed 
what  may  be  considered  as  a  superposition  of  the 
FDE  and  the  BDI  schemes.  This  meant  splitting  the 
matrix  A  as: 

M  =  1/2  A 

N  =  1/2  A 

so  that, 

At  ,  ,  v  At  ,  . 

(I-  -  G_1A]  u[n  ’=  [I  +  -  G-1A]  u/;+  G_1 S '  (11-20) 

2  2  ~ 


and 


^C-N 


At  At 

[i  —  g-1^]-1  +  —  g-1  a] 

2  2 


The  spectral  radius  of  the  Crank-Nicolson  matrix,  given 
by; 


P(W 


1  +  —  X  (G_1A) 
2 

1  -  —  X  (G_1A) 
2 


max,  is  less  than  unity 


for  all  At  >  0,  since  A  is  negative  definite.  The  C-N 

procedure  is,  therefore,  unconditionally  stable  despite 
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( n ) 

the  inclusion  of  ul  .  The  method  is  implicit  and  has 
the  same  computational  problems  as  the  BDI  scheme. 

Alternating  Direction  Implicit  Procedure  (ADIP) 

In  view  of  the  attractive  feature  of  unlimited 
stability  of  the  BDI  scheme,  considerable  research 
effort  was  devoted  towards  a  better  splitting  of  matrix 
A  so  that  the  order  and  nature  of  the  matrix  to  be 
inverted  are  simpler.  This  has  given  rise  to  a  class 
of  alternating  direction  implicit  procedures.  The 
original  procedure  developed  by  Peaceman  and  Rachford 
[32]  primarily  for  the  two-dimensional  problems,  is 
typical  of  this  class  and  is  discussed  here  in  detail. 

Peaceman  and  Rachford,  in  effect,  split  the 
matrix  A  in  such  a  way  that  all  the  entries  of  A  that 
arise  from  discretizing  the  x-directional  derivative 
of  T  are  incorporated  in  one  matrix,  H,  and  all  those 
that  arise  from  discretizing  the  y-directional 
derivative  are  represented  by  another  matrix,  V,  so 
that  the  matrix  splitting  in  ADIP  is: 


; 
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A  =  H  +  V 
or  A  =  V  +  H 

Matrices  H  and  V  are  of  the  same  order  as  A,  m2  x  m2 . 

They  have  each  no  more  than  three  non-zero  entries  in 
any  row.  Both  are  diagonally  dominant  matrices  with 
negative  diagonal  entries.  Both  H  and  V  are  therefore 
negative  definite.  The  method  of  integration  consists 
of  two  stages  for  a  two-dimensional  problem.  Each 
stage  uses  a  half  time  step. 

In  Stage  one, 

M  =  H 
N  =  V 

so  that, 

[I -  G_1H] u(n+1/2) = [1+  —  G-1V]u(n)+  G_1 S '  (11-21) 

2  2 

In  Stage  two,  the  choice  of  M  and  N  is  reversed: 

M  =  V 
N  =  H 
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so  that, 

[I - G_1V]un+1)  =  [I+  -  G-1H]u(n+1//2)+  G” 1  S  '  (11-22) 

2  2 

The  matrix  [I_  -  G"1!!]  in  stage  one  and  the  matrix 

[_I  -  G_1V]  in  stage  two  are  both  tridiagonal  and  can 

be  inverted  by  an  efficient  method  due  to  Thomas  to  be 
described  later.  The  above  matrices  are  of  order  m2  x  m2 . 
In  practice,  taking  advantage  of  the  boundary  condition, 
the  matrix  equation  (11-21)  can  be  broken  into  m  small 
tridiagonal  matrix  equations;  the  matrix  associated  with 
each  of  them  is  of  m  x  m  order  and  corresponds  to  a 
row  of  grid  points.  So,  equation  (11-21)  may  be  solved 
for  a  row  of  points  at  a  time.  Similarly,  equation 
(11-22)  may  be  solved  for  a  column  of  points  at  a  time. 
Computationally,  the  two  stages  involve  the  inversion 
of  an  m  x  m  tridiagonal  matrix,  2m  times  for  each  time 
step.  This  is  significantly  simpler  than  inverting 
an  m2  x  m2  matrix  once  as  in  the  BDI  method. 

The  tridiagonal  matrix  equation  resulting 
from  (11-21)  or  (11-22)  is  solved  by  an  algorithm 
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outlined  by  Bruce  et  al  [5]  as  due  to  Thomas.  The 
equation  is  of  the  form: 

W  Z  =  Q 

Triangular  decomposition  of  the  tridiagonal  matrix 
W  yields  two  bidiagonal  matrices  L  and  U,  whose 
inversion  is  very  easy. 

Then,  WZ_  =  L  U  Z  =  q 

If  U  Z  =  Y,  then,  L  Y  =  Q 

and  Y  =  L_1Q  and  Z  =  U" 1 Y 

Solving  for  Y  and  Z_  in  that  order  is,  therefore, 
computationally  simple. 


To  examine  the  stability  of  ADIP,  equations 
(11-21)  and  (11-22)  may  be  combined  to  yield: 


(n+1) 

u 


-P-R 


(11-23) 


where  the  constant  is  deleted  and 

At  At  At 

B  =  [I - G-iV]"1  [I  +  G“  1  H]  [I - G” 1  H  ]  “  1 

P  K  “  2  2  2 


At 

[I  +  G~ 1 V] 
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is  the  Peaceman-Rachf ord  matrix.  Assuming  that  H  and 
V  commute,  Varga  [39] ,  showed  that  Bp_R  is  similar  to 
the  Crank-Nicolson  matrix  which  is  unconditionally 
stable . 


Douglas  [18]  reported  that  for  the  three- 
dimensional  case,  ADIP  was  unstable  for  any  useful 
values  of  At.  As  a  result,  a  number  of  modifications 
of  this  procedure  were  attempted.  Of  these  the 
Douglas-Rachford  method  and  its  subsequent  modification 
by  Brian  proved  to  be  useful.  The  basic  approach  of 
these  methods  j_s  /  nevertheless,  similar  to  that  of 
ADIP  and  involves  in  each  stage,  the  inversion  of  a 
tridiagonal  matrix  arising  from  a  row  or  a  column  of 
points . 

Douglas-Rachford  Method  [ 15 ] 

The  essential  difference  between  this  method 
and  ADIP  is:  whereas  ADIP  calculated  u(n+l/2)  followed 
by  u^n+1),  this  method  makes  a  first  estimate,  u^n+^^ , 
in  the  first  stage.  This  is  further  improved  to  obtain 
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u  in  one  more  stage  if  it  is  a  two-dimensional 

problem  or  in  two  more  stages  in  a  three-dimensional 
problem.  The  two  stages  in  the  former  case  are  as 
follows : 

Stage  one, 

M  =  H 
N  =  V 

so  that, 

[I  -  At  G_1H]u(n+1)=  [I  +  At  G” 1 V]  u(n)  (11-24) 


In  stage  two,  the  matrix  splitting  is  not  a  reversal 
of  that  in  stage  one  as  in  ADIP.  The  approximation  is 


given  by: 
G 


r  (n+l)  *  (n+1)  -1 

u  -  u 


At 


TT  r  (n+l)  (n)  . 

=  V  [u  -  u  ] 


Therefore , 

[I  -  At  G-1V]u(n+1)  =  u(n+1)  -  At  G“ 1 V  u(n). 


* (n+l) 

On  substituting  for  uv  from  (11-24), 
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u(n+1)  =  [I  -  At  G~  1 V]  “ 1  {  ( I_  -  At  G“ 1  H)  “ 1  ( ][  +  At  G~  1 V) 

-  At  G~ 1 V  }  u(n)  (11-25) 

where  the  constant  term  is  omitted.  The  method  was  shown 
to  be  stable  for  any  At  >  0. 

Brian's  Scheme  [ 4 ] 

This  scheme  combines  the  approach  of  successive 
estimations  of  the  Douglas-Rachford  method  with  the  AD  IP ' s 
calculation  of  intermediate  values  (i.e.  at  (n+1/2)  At). 
The  advantage  of  this  scheme  is  that  it  achieves  a  higher 
order  accuracy  with  practically  the  same  computational 
time.  This  procedure  is  to  the  Douglas-Rachford  procedure 
what  Crank-Nicolson  method  is  to  the  BDI  method.  The 
method  is  identical  to  the  ADIP  in  the  two-dimensional 
case.  The  details  of  this  scheme  in  the  three-dimensional 
case  will  be  given  in  the  next  chapter. 

A  similar  alternating  direction  implicit 
procedure  was  also  proposed  by  Douglas  [18]  ,  which 
might  be  considered  as  a  perturbation  of  the  Crank- 
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Nicolson  procedure.  Notably,  in  all  the  above  multi¬ 
stage  procedures  the  storage  requirements  of  the  function 
values  are  as  many  times  the  number  of  function  values 
as  the  dimensionality  of  the  problem. 

Alternating  Direction  Explicit  Procedure  (ADEP ) 

An  interesting  new  method  of  splitting  the 
matrix  A  was  achieved  in  what  may  be  called  an  alternating 
direction  explicit  procedure.  First  suggested  by  Saul'yev 
[37]  for  the  solution  of  one-dimensional  diffusion 
equation  and  later  extended  by  Larkin  [24]  to  the  two- 
dimensional  case,  this  method  bisects  the  matrix  A 
along  the  diagonal.  The  procedure  consists  of  two 
stages  irrespective  of  the  dimensionality  of  the 
problem . 

Let  A  =  E  +  F  -  D 

where  D  is  a  diagonal  matrix  with  -a  as  the  diagonal 
elements.  E  and  F  are  strictly  lower  and  upper 
triangular  matrices  whose  entries  are  those  of  A 
respectively  below  and  above  the  main  diagonal  of  A. 
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Let  be  further  disected  along  the  diagonal  into  two 
halves,  and  D2,  with  the  restriction  that  D}  does 

not  contain  components  of  K  not  present  in  E;  Similarly 
D 2  does  not  contain  components  of  K  not  present  in  F. 

Note  that,  for  a  homogeneous  medium  (K  -  constant) 

T 

Di  =  D2  and  E  =  F.  Referring  to  equation  (11-17),  the 
matrix  splitting  may  be  described  as  follows: 

Stage  one, 

M  =  E  -  Dj 

N  =  F  -  D2 

so  that, 

[I  +  —  G"1 (Dx  -  E) ]  u(n+1/2)  =  [I  -  G"1 (D2  -  F) ]u(n) 

2  2 

+  G”1  S'  (11-26) 

Stage  two,  the  matrix  splitting  is  now  reversed; 

M  =  F  -  D2 

N  =  E  -  Dx 
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so  that. 

At 

[1+  -  G“ 1  (D2 

2 


F) ]u(n+1)=[I- 


A  t 

-  G"1  (D], 

2 


E)]u(n+1/2> 


+  G-1  S' 


(11-27) 


Since  G,  ,  and  D2  are  diagonal  matrices,  these  equations 
may  be  rearranged  to  yield  respectively: 


[D\ - G_1E]  u  (n+1//2)=  [O'  +  -  G_1F]u(n)  +  G” 1  S  ' 


(11-28) 


and 


At 


[D"  -  -  G_iF] 

2 


-iFl (n+1)  _ 


[Df  +  -  G-1E] u (n+1/2) +  G-1 Sy  (11-29) 

2 


where 

I 

Di 

DJ 

£2 

D" 


A  t 

I  +  - 

2 

At 

I - G"1^ 

2 

At 

I  -  -  g_1d2 

2 

At 

I  +  -  G“  1  D  2 


2 


. 
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Each  of  these  is  obviously  a  diagonal  matrix;  D'  and  D " , 
which  are  contained  in  the  matrices  to  be  inverted,  are, 
in  addition,  positive  definite. 

In  the  set  of  algebraic  equations  (11-28),  in 
general,  three  unknowns  are  coupled  in  any  one  equation 
and  the  matrix  equation  appears  to  be  implicit.  However, 
P  =  (D'  -  G-1E)  being  a  lower  triangular  matrix,  the 

equations  can  be  solved  explicitly,  if  the  computation 
is  started  from  the  top.  Physically,  this  means  that, 
of  the  three  unknowns  coupled  in  one  equation,  two  are 
known  from  the  two  boundary  conditions,  if  this  point 
is  at  a  corner.  The  equation  is  solved  for  the  remain¬ 
ing  one  unknown  explicitly.  For  the  next  point  in  the 
row,  of  the  three  unknowns,  one  is  just  computed, 
another  is  known  from  one  boundary  condition  still 
available,  leaving  the  third  as  the  only  unknown.  For 
an  interior  grid  point,  two  of  the  three  unknowns  are 
always  known  from  the  previous  computation  provided 
computation  is  performed  in  the  increasing  order  of 
the  number  of  the  grid  point. 
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At 

In  the  reverse  sweep,  P  =  [D"  -  —  G_1F]  being 

2 

an  upper  triangular  matrix,  the  computation  is  started 
at  the  corner  point  with  the  highest  number.  This  is 
obviously  the  point  where  the  forward  sweep  ended. 
Equations  (11-28)  and  (11-29)  are  in  effect,  explicit 
and  may  be  written  as: 

D {  u(n+1/2)=  —  G“xE  u(n+1//2)+  [D£  +  —  G-1F]u(n) 

2  2 


+  G“ 1 S '  (11-30) 


and 


D"  u(n+1)  =  -  G~ 1 F  u(n+1)+  [D  i'  +  -  G-1E]  u  (n+1//2) 


+  G“ 1 S  ' 


(11-31) 


The  ADEP ,  as  will  be  shown  in  the  next  chapter, 
is  similar  to  the  "Point  Successive  Symmetric  Over¬ 
relaxation"  method  developed  by  Frankel  [21]  for  the 
iterative  solution  of  elliptic  equations.  The  latter 
method  was  shown  by  Varga  [39]  to  be  stable  for  0  ^  w  <  2 , 
where  w  is  the  relaxation  factor.  This  range  of  w 
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corresponds  to  0  <:  At  ,<  °°.  The  unconditional  stability 
of  ADEP  may  also  be  proved  by  the  von  Neumann  technique . 

The  advantage  of  ADEP  over  ADIP  in  respect 
of  computational  time  is  obvious.  While  ADIP  involves 
the  inversion  of  an  m  x  m  matrix  2m  times,  ADEP  involves 
the  explicit  solution  ©f  one  unknown  at  a  time,m2  times. 
Larkin  [24]  gave  the  ratio  of  computational  times  of 
ADIP  and  ADEP  as  5:1.  The  accuracy  of  ADEP  was 
comparable  to  that  of  ADIP.  A  recent  article  by  Coats 
and  Terhume  [8]  claimed  better  accuracy  for  ADIP.  They 
also  reported  that  in  a  particular  reservoir  problem 
the  ADEP  solution  was  non-conservative.  These  points 
will  be  discussed  subsequently. 

The  closed  form  solution  of  the  semi-discrete 
equation  (II-9) ,  referred  to  earlier,  was  obtained  by 
Darsi  and  Quon  [13] .  The  method  is  based  on  trans¬ 
forming  u  into  another  vector 'using  eigenvectors  of 
the  coefficient  matrix  A.  Its  application  was 
demonstrated  for  a  linear  problem.  A  limitation 
of  this  method  is  that  the  evaluation  of  eigenvectors 
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and  eigenvalues  takes  excessive  time  if  the  coefficient 
matrix  is  of  a  large  order. 

In  all  the  above  methods,  the  space  derivative 
is  approximated  by  a  three-point  central  difference  and 
the  time  derivative  by  two-point  forward  difference. 
However,  attention  has  also  been  given  [18,  33]  to  higher 
order  approximations  using  more  than  two  time  levels 
for  the  time  derivative  and  more  than  three  points  for 
the  space  derivative  .  This  approach  has  not  gained 
wide  application  because  of  three  disadvantages?  larger 
memory  requirements,  difficulty  of  treating  points 
close  to  the  boundary,  and  greater  computing  effort. 
Nevertheless,  the  higher  order  accuracy  possible  in 
this  approach  may  eventually  prove  to  be  an  over¬ 
riding  advantage. 

In  summary,  although  there  are  a  number  of 
methods  proposed  to  numerically  integrate  equation 
(II-l) ,  only  two  of  them  are  practically  useful, 
namely,  the  alternating  direction  implicit  procedures 
typified  by  the  method  of  Peaceman  and  Rachford  and 
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the  alternating  direction  explicit  procedure.  Both 
the  methods  are  unconditionally  stable.  Being  an 
explicit  method,  ADEP  holds  special  significance 
for  large  and  nonlinear  systems. 


III.  ALTERNATING  DIRECTION  EXPLICIT  PROCEDURE 


The  alternating  direction  explicit  procedure 
(ADEP) ,  discussed  in  the  previous  chapter,  combines 
the  stability  of  the  implicit  methods  and  the  simplici 
of  the  explicit  methods.  These  two  features  are 
especially  desirable  in  the  solution  of  large  and 
nonlinear  systems.  In  this  chapter,  the  extension  of 
this  method  to  the  three-dimensional  parabolic  problem 
is  discussed.  In  an  example  problem  the  accuracy  of 
the  proposed  method  is  compared  with  the  best  implicit 
procedure.  This  is  followed  by  a  comparison  of  their 
computational  times  and  also  their  application  to 
nonlinear  problems. 

The  new  method,  ADEP,  is  extended  to  the 
three-dimensional  problem  defined  by  equation  (III-l) . 
As  stated  earlier,  the  number  of  integration  stages 
in  ADEP  is  independent  of  the  dimensionality  of  the 
problem.  Therefore,  the  two  stages  of  ADEP  given 
by  equation  (11-26)  and  (11-27)  or  by  (11-28)  and 
(11-29)  for  the  two-dimensional  case,  are  also  valid 
for  the  three-dimensional  problem.  All  the  features 
associated  with  matrices  D,  E,  F,  Dj ,  D" ,  D2 ,  and  D" 
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in  the  above  equations,  also  hold  good.  The  order  of 
these  matrices  is  now  m3  x  m3  instead  of  m2  x  m2 ,  where 
m  is  the  number  of  grid  points  in  each  direction. 

At 

In  the  matrix  equation  (11-28),  P  =  DJ  -  — 

“  2 

G-1E  is  a  lower  triangular  matrix.  Each  of  the 
equations  in  this  set  is  solved  explicitly  starting  from 
the  top  and  proceeding  in  the  increasing  order  of  the 
grid  number.  The  procedure  is  similar  to  the  two- 
dimensional  case  except  that  the  number  of  unknowns 
coupled  in  an  algebraic  equation  are  four  in  a  three- 
dimensional  case  compared  to  three  in  a  two-dimensional 
case.  But  the  number  of  boundary  conditions  available 
is  now  three.  Therefore  in  the  three-dimensional 
case  three  of  the  four  quantities  at  (n+l/2)At  are 
known  from  the  boundary  conditions  or  from  previous 
computation.  The  reverse  sweep,  using  equation  (11-29) 
is  similar.  P  =  d"  -  G_1F  is  an  upper  triangular 
matrix  and  the  point  by  point  evaluation  of  u^n+'*'^ 
starts  from  the  bottom  equation  of  (11-29) .  This 
obviously  corresponds  to  the  grid  point  with  the 
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highest  index.  Computation  proceeds  along  the  same 
path  as  in  the  forward  sweep  but  in  the  opposite 
direction . 

The  unconditional  stability  of  ADEP  in  the 
three-dimensional  case  can  be  proved  as  in  the  two- 
dimensional  case. 

Comparison  with  Iterative  Methods  for  Solving  Laplace's 


Equation 


Under  certain  conditions,  the  ADEP  may  be 


shown  to  be  identical  to  the  Point  Successive  Symmetric 
Overrelaxation  (PSOR)  Method  developed  by  Frankel  [21] 


for  solving  Laplace's  equation.  Let  At/Ax2  =  0  and 


assume  G  =  j  D.  Then,  the  forward  sweep  of  ADEP  (11-26) 


is  given  by: 


1 


(n+1) 


+  [F  -  D2]  u(n) 


[E  -  D  i  ]  u 
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Adding 


to  both  sides  and  rearranging 


S'  f 
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D  [u 


(n+1)-  u (n) ] = [D“ 1 Dx +  iQ  I]”1 [E  u(n+1)+(F-D)u(n) ] 


In  the  case  of  homogeneous  medium,  D}  =  D2  =  ^  D. 
On  substituting  for  £1  and  D2,  and  rearranging , the 
above  equation  becomes: 


[D  -  co  E]u(n+1)  =  [(1-co)  D  +  co  F]  u  (n) 


where  co=  -  is  the  relaxation  factor.  This  is  identical 

1+20 

to  the  forward  sweep  of  PSOR.  Likewise,  the  reverse  sweeps 
of  ADEP  and  PSOR  also  may  be  shown  to  be  similar.  The 
PSOR  matrix  was  shown  by  Varga  [39]  to  be  convergent  for 
0  ^  co  <:  2  which  corresponds  to  0  <  At  ^  °° . 

The  Brian-Douglas-Rachford  (B-D-R)  method  [4] 
for  the  three-dimensional  problem  was  shown  to  be  the 
most  efficient  method  and  also  to  have  the  higher  order 
accuracy  of  the  Crank-Nicolson  procedure.  The  latter 
has  a  truncation  error  of  0 [At2  +  Ax2].  The  accuracy 
of  the  ADEP  is  compared  with  that  of  the  B-D-R  method. 
Before  doing  this,  the  truncation  errors  in  the  two 
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stages  of  ADEP  are  examined.  For  the  sake  of  simplicity, 
the  normalized  form  of  the  three-dimensional  diffusion 
equation  is  considered: 

9  T  9  2  T  92T  9  2T 

-  =  -  +  -  +  -  (III-l) 

9 1  9x2  9y2  9z2 


Let 


T (x,y , z, t) 


T. 

l 


(n) 
f  j  fk 


and 


A 

X 


rn  (n) 

if  j  zk 


T(n)  _  T(n) 

i+1 r j  r k  i , j , k 


The  truncation  error,  t,  reckoned  as  the  differential 
equation  minus  its  difference  analogue,  is  given  below 
for  the  forward  as  well  as  the  reverse  sweeps. 
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[T  -T  -T  -T 
t  xx  yy 
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x  i ,  j  ,  k  x 


Axz 

A  T.(n).  -  A 
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T (n+1/ 2 ) _  T (n) 
if  j  if  j  fk 


L  2 
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i-l f J fk  _  Y  if]fk  y 
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if  j-lf k 
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At 


2Ax 


At  At 

+  - -  T  +  - -  T 

2Ay  ty  2Az  tz 
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A  z  2 
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- —  T  + 

12  yyyy 


T 


12 


xxxx 


12 


zzzz 


8Ax 


T 


ttx 


+ 


The  derivatives  on  the  right  hand  side  of  (III-2)  are 
at  (nAt)  and  those  on  the  right  hand  side  of  (III-3) 
are  at  (n  +  1/2) At.  Note  that  the  first  and  the  last 
terms  of  have  approximately  the  same  magnitude  but 


opposite  sign  as  the  corresponding  terms  of  t  .  On 

R 


alternate  application  of  the  forward  and  the  reverse 
sweeps  of  ADEP,  these  error  terms,  presumably ,tend 
to  cancel  each  other.  This  improves  the  accuracy  of 
the  two-stage  solution  compared  to  the  accuracy  of 
the  individual  stages. 

The  Brian-Douglas-Rachf ord  procedure  in  its 
simplified  form  may  be  written  as  follows. 


Let 
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*  n+1/2 
u .  .  , 


At/2 


**  (n+1/2 ) _  *  (n+1/2) 
i/j/k  i/jfk 


(III-5) 


At/2 


At/2 


Equation  (III-4),  when  applied  to  a  row  of  grid  points 
along  x  direction,  yields  a  tridiagonal  set  of  equations. 
These  are  solved  by  the  Thomas  method  described  in  the 
previous  chapter.  The  procedure  is  repeated  to  cover 
all  the  rows  in  the  net  work.  Equations  (III-5)  and 
(III-6),  in  that  order,  are  similarly  applied  along 
the  rows  in  y  and  z  directions  respectively. 

Example  Problem 

The  three  methods  -  ADEP,  ADIP,  and  B-D-R  method- 
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were  tested  on  a  simple  parabolic  problem  namely  the 
three-dimensional  transient  heat  conduction  [2] „  The 
problem  is  defined  by  equation  (III-l)  and  the  initial 
and  boundary  conditions  given  below: 


8  T 

3  2T 

3  2T 

3  2T 

— .  = 

-  + 

— —  + 

— —  0  <  x ,  y  f  z 

<  1 

at 

3x2 

3y2 

3  z  2 

I  oC  . 

T(x, 

Y'ZfO) 

=  1.0 

for  all  x,y,z 

B  o  C  o 

t  > 

0:  T(l, 

Y, z, t) 

=  T  (x ,  1  r  z  ,  t)  = 

T(x,y,l,t)  = 

3T 

=  0  at 

x  =  0 

3x 

3  T 

— 

=  0  at 

y  =  0 

(HI-7) 

3y 

3  T 

=  0  at 

z  =  0 

3  z 

This  is  one  of  the  three-dimensional  problems  for  which 
an  analytical  solution  is  available0  For  certain 
types  of  initial  and  boundary  conditions  [7] ,  which 
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include  (III-7),  analytical  solution  of  the  three 
dimensional  problem  can  be  expressed  as  the  product 
of  the  solutions  of  the  three  one-dimensional  problems 
[30] o  The  analytical  solution  of  the  problem  (III-l) 
and  (III-7)  is  given  by: 


T  ( x !  ,  x  2  ,  x  3<t )  =  Tl(x1,t)*  T2(x2,t)  *  T3  (x3 , t ) 


where 


4  00 

W10  =  -  I 


(-1) 


m 


Exp 


tt  „  (2m+l) 

m=0 


2m+l  2 
-it2  t  ( - ) 


Cos 


,  2m+l, 
1  2  ' 


£  =  1,2,3. 


( III-8 ) 


is  the  solution  of  the  one-dimensional  diffusion 
equation  in  the  x  direction.  Since  the  system  is 

X/ 

symmetric  with  respect  to  physical  geometry  and  the 
boundary  condition,  the  solution  of  the  one-dimensional 
problem  is  identical  in  all  the  directions.  In  computing 
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T^(x^,t),  the  series  on  the  right  hand  side  of  (III-8) 
is  terminated  when  the  absolute  value  of  the  term  is 
less  than  10-10.  The  length  of  the  system  in  each 
direction  was  divided  into  10.5  increments  with  a  half 
increment  at  the  insulated  boundary,  giving  Ax  (=Ay=Az) 
=  0.0952. 


The  ADEP ,  the  ADIP,  and  the  B-D-R  method 
were  programmed  on  IBM  7040  computer.  The  source 
listings  of  the  programmes  for  these  methods  and  for 
the  analytical  method  are  given  in  Appendix  D. 

The  stability  of  ADEP,  ADIP,  and  B-D-R 

scheme  was  tested  using  At  up  to  20  times  At 

^  ^  max 

where  At  is  the  maximum  permissible  time  step  in 
max  c 

the  classical  explicit  scheme.  ADIP  quickly  became 
unstable  and  no  further  consideration  was  given  to 
this  scheme. 

The  solutions  of  the  problem  (III-l)  and 
(III-7)  by  the  analytical  method,  the  ADEP,  and  the 
B-D-R  method  are  presented  in  Tables  1,  2,  and  3  for 
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three  selected  points  along  the  diagonal  of  the  system. 

The  results  are  obtained  by  using  three  time  steps  which 

are  approximately  1.25,  2 „ 5 ,  and  5  times  At  .  The 

max 

corresponding  error  tabulations  are  given  in  Tables  4, 

5,  and  6.  For  At  =  1.25  At  ,  the  ADEP  and  the  B-D-R 

max 

solutions  are  of  the  same  accuracy  with  perhaps  a  slight 

advantage  to  ADEP.  At  double  this  time  step,  the 

accuracies  are  comparable.  However,  at  At  =  5  At  , 

max' 

the  B-D-R  solution  is  on  the  whole  somewhat  better  than 
the  ADEP  solution.  Examining  the  truncation  errors, 
and  t  of  ADEP,  it  is  seen  that  the  coefficients  of  the 

R 

first  and  the  fourth  terms  of  are  at  the  time  level 

F 

nAt  whereas  the  corresponding  terms  in  t  are  at  time 
level  (n+l/2)At.  When  At  is  small,  the  magnitudes  of 
these  coefficients  are  close  to  each  other  and  the  first 
and  the  fourth  terms  of  t  and  the  corresponding  terms 
of  tend  to  cancel  each  other  more  or  less  completely 
in  each  cycle.  The  accuracy  of  ADEP  is  the  same  as  that 
of  B-D-R  scheme.  When  At  is  large,  the  magnitudes  of 
the  coefficients  may  differ  sufficiently  and  the  resulting 
cancellation  may  be  incomplete  and  hence  somewhat  lesser 
accuracy  of  ADEP  compared  to  that  of  B-D-R  scheme. 


TABLE  1 


COMPARISON  OF  B-D-R  METHOD  AND  ADEP :  At  =  0.00198 


No.  of  Cycles 

n 

Location* 

S  0  L  U 

Analytical 

T  I  O  N 

ADEP 

B-D-R 

24 

A 

0.9832 

0.9788 

0.9791 

B 

0.8207 

0.8143 

0.8140 

C 

0 . 0995 

0.1005 

0.1001 

48 

A 

0.8359 

0.8305 

0.8305 

B 

0.5297 

0.5287 

0.5279 

C 

0.0386 

0.0388 

0.0387 

72 

A 

0.6346 

0.6316 

0.6312 

B 

0.3551 

0.3547 

0.3542 

C 

0.0215 

0.0215 

0.0216 

96 

A 

0.4599 

0.4586 

0.4581 

B 

0.2449 

0.2446 

0.2443 

C 

0.0138 

0.0138 

0.0138 

120 

A 

0.3273 

0.3268 

0.3264 

B 

0.1709 

0.1708 

0.1706 

C 

0.0093 

0.0093 

0.0093 

*  Location:  x  =  y  = 

A 
B 


C 


0.143 

0.429 

0  o  810 


z 


TABLE  2 


COMPARISON  OF  B-D-R  METHOD  AND  ADEP :  At  =  0. 00396 


NOo  of  Cycles  SOLUTION 

Location* 


u 

Analytical 

ADEP 

B-D-R 

12 

A 

0.9832 

0.9778 

0.9791 

B 

0.8207 

0.8155 

0.8143 

C 

0.0995 

0.1015 

0.0999 

24 

A 

0.8359 

0.8307 

0.8306 

B 

0.5297 

0.5309 

0.5279 

C 

0.0386 

0.0388 

0.0387 

36 

A 

0.6346 

0.6330 

0.6313 

B 

0.3551 

0.3562 

0.3542 

C 

0.0215 

0.0215 

0.0216 

48 

A 

0.4599 

0.4601 

0.4581 

B 

0.2449 

0.2456 

0.2443 

C 

0.0138 

0.0137 

0.0138 

60 

A 

0.3273 

0.3281 

0.3264 

B 

0.1709 

0.1714 

0.1706 

C 

0.0093 

0.0093 

0.0093 

* 


(As  in  Table  1) 


TABLE  3 


COMPARISON  OF  B-D-R  METHOD  AND  ADEP :  At  =  0.00792 


No.  of  Cycles  SOLUTION 

Location* 


n 

Analytical 

ADEP 

B-D-R 

6 

A 

0.9832 

0 . 9742 

0.9791 

B 

0  o  8207 

0.8191 

0.8154 

C 

0.0995 

0.1063 

0.0994 

12 

A 

0.8359 

0.8313 

0.8309 

B 

0.5297 

0.5396 

0.5279 

C 

0.0386 

0.0390 

0 . 0386 

18 

A 

0.6346 

0.6380 

0.6314 

B 

0.3551 

0.3621 

0.3541 

C 

0 . 0215 

0.0214 

0.0215 

24 

A 

0.4599 

0.4661 

0.4582 

B 

0.2449 

0.2493 

0.2443 

C 

0.0138 

0.0136 

0.0138 

30 

A 

0.3273 

0 . 3333 

0.3264 

B 

0.1709 

0.1738 

0.1706 

C 

0.0093 

0.0091 

0.0093 

* 


Location  (Same  as  in  Table  1) 


TABLE  4 


ERROR  TABULATION:  At  =  0.00198 


No  o  of 

n 

Cycles  x=y=z 

ADEP 

=0.143 

B-D-R 

x=y= 

ADEP 

z=0 .429 

B-D-R 

x=y=z= 

ADEP 

0.810 

B-D-R 

24 

-0  o  0044 

-0.0041 

-0.0063 

-0.0067 

0.0010 

0.0006 

48 

.  -0.0054 

-0 .0055 

-0.0010 

-0.0018 

0.0002 

0.0001 

72 

-0.0030 

-0.0034 

-0.0004 

-0.0009 

0.0000 

0.0001 

96 

-0.0003 

-0.0018 

-0.0003 

-0.0006 

0.0000 

0.0000 

120 

-0.0005 

-0.0009 

-0.0001 

-0.0003 

0.0000 

0 .0000 

TABLE  5 


ERROR  TABULATION:  At  =  0„00396 


3 

0 

o 

o 

Hi 

Cycles  x=y=z=0o143 

x=y=z=0 .429 

x=y=z= 

0.810 

n 

ADEP  B-D-R 

ADEP  B-D-R 

ADEP 

B-D-R 

12 

-0.0054  -0  o  0041 

-0.0052  -0.0064 

0.0020 

0.0004 

24 

-0.0052  -0.0053 

-0.0012  -0.0018 

-0.0002 

0.0001 

36 

-0.0016  -0.0033 

-0.0011  -0.0009 

0.0000 

0.0001 

48 

0.0002  -0.0018 

0.0007  -0.0006 

-0.0001 

0.0000 

60 

0.0008  -0.0009 

0.0005  -0.0003 

0.0000 

0.0000 

TABLE  6 


ERROR  TABULATION:  At  =  0.00792 


No.  of  cycles  x=y=z=0 . 14 3  x=y=z=0.429  x=y=z  =  0.810 


n 

ADEP 

B-D-R 

ADEP 

B-D-R 

ADEP 

B-D-R 

6 

-0.0090 

-0  o  0 04 1 

-0.0016 

-0 . 0053 

0.0068 

-0.0001 

12 

-0  o  0046 

-0.0050 

-0.0001 

-0.0018 

-0.0004 

0 .0000 

18 

0  o  0036 

-0.0032 

0.0070 

-0.0010 

0.0001 

0.0010 

24 

0.0062 

-0.0017 

0.0044 

-0.0006 

-0.0002 

0 . 0000 

30 

0  o  0060 

-0.0009 

0.0028 

-0.0003 

0.0002 

0.0000 
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An  estimate  of  the  computing  times  of  the  two 
methods  may  be  obtained  by  examining  the  number  of 
arithmatic  operations  performed  by  each  method  in 
advancing  the  solution  by  one  time  step.  The  average 
number  of  operations  for  a  linear  problem  are  shown  in 
Table  7o  The  grid  size  is  assumed  to  be  identical  in 
all  three  directions.  Assuming  that  the  performance 
of  multiplication  and  division  takes  about  the  same 
computing  time,  it  is  seen  that  the  B-D-R  method  takes 
nearly  five  times  the  computational  work  required  by 
ADEP.  The  saving  in  computing  time  is  therefore 
significant  in  a  three-dimensional  problem.  The 
storage  requirements  of  function  values  is  only  twice 
the  number  of  function  values  in  ADEP,  compared  to 
three  times  the  number  of  function  values  in  any  ADIP„ 

It  is  of  practical  interest  to  know  which  of 
the  two  methods  is  more  suitable  and  under  what 
conditions.  Since  both  ADEP  and  B-D-R  methods  are 
unconditionally  stable,  they  have  to  be  judged  on  the 
basis  of  accuracy  and  computational  simplicity. 


TABLE  7 


ARITHMETIC  OPERATIONS  OF  ADEP  AND  B-D-R  METHOD ; 

LINEAR  PROBLEM 


Average  number  of  operations  per  grid  point 

per  cycle 

Addition/Subtraction  Multiplication  Division 


ADEP 

12 

2 

2 

B-D-R 

19 

13 

6 

69 


Considering  first  the  linear  case  of  the  three- 
dimensional  problems,  for  small  At,  ADEP  is  recommended 
over  the  B-D-R  method  since  their  accuracies  are 
equivalent  and  ADEP  is  faster.  At  larger  time  steps, 
each  method  has  an  advantage,  namely,  ADEP  is  faster 
while  B-D-R  method  is  somewhat  more  accurate 0  A 
reasonable  basis  for  evaluating  the  two  methods  is  to 
use  a  smaller  time  step  in  ADEP  so  that  it  has 
approximately  the  same  computing  time  as  the  B-D-R 
method.  The  relative  accuracies  of  the  two  methods 
should  determine  suitability  of  the  one  over  the 
other  o 


Nonlinear  Case 

The  case  of  nonlinear  parabolic  equations 
is  of  great  interest  in  many  practical  problems 0 
Nonlinearities  in  equation  (1-1)  may  arise  in  g  and  K, 
in  the  source  term  S  and  in  the  boundary  conditions. 

In  any  of  these  cases  the  matrix  equation  (11-28)  is 
no  longer  explicit,  since  the  matrices  D ' ,  G,  E,  and 
S*  are  then  functions  of  u„  The  advantage  of  ADEP  lies 
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in  the  fact  that  each  of  the  equations  in  the  set  (11-28), 
though  nonlinear,  involves  only  one  unknown.  The 
solution  of  one  nonlinear  equation  for  one  unknown  can 
be  obtained  simply  by  a  standard  iterating  technique 
such  as  Newton-Raphson.  Point  by  point  evaluation  of 
all  the  grid  points  is  the  same  as  in  the  linear  problem. 
On  the  other  hand,  any  alternating  direction  implicit 
procedure  leads  to  a  set  of  m  nonlinear  coupled  equations 
in  m  unknowns , where  m  is  the  number  of  grid  points  in  a 
row  or  a  column.  In  terms  of  computational  task,  this 
certainly  compares  with  ADEP  more  unfavorably  than  in 
the  linear  case.  To  advance  the  solution  of  the  whole 
net  work  by  one  time  step,  ADEP  involves  solving  one 
nonlinear  equation  for  one  unknown  m3  times.  Remembering 
that  any  ADIP  is  a  three  stage  process,  now  m  nonlinear 
equations  are  simultaneously  solved  for  m  unknowns  3m2 
times.  Further,  when  m  is  large,  problems  of  convergence 
of  iterative  solution  are  more  likely  to  arise. 

In  summary,  the  alternating  direction  explicit 
procedure  combines  the  simplicity  of  the  classical 
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explicit  methods  with  the  unconditional  stability  of  the 
implicit  procedures c  In  the  case  of  linear  problems, 
the  use  of  ADEP  is  recommended  at  smaller  time  steps. 

At  larger  time  steps,  the  fastness  of  ADEP  has  to  be 
weighed  against  the  somewhat  better  accuracy  of  the 
B-D-R  method.  In  the  case  of  nonlinear  problems,  the 
computational  advantages  of  ADEP  over  the  B-D-R  method 
are  even  more  marked,  ADEP  is  more  likely  to  prove 
advantageous  to  use. 


IV.  TWO-DIMENSIONAL  MODEL  OF  AN  OIL  RESERVOIR 


A  petroleum  reservoir  is  a  highly  complex 
physical  system.  Its  complexity  arises  from  a  number 
of  sources „  The  geometrical  configuration  of  the 
reservoir  is  irregular  and  its  magnitude  huge.  The 
structure  of  the  rock  which  constitutes  the  reservoir 
may  vary  considerably.  There  are,  in  general,  more 
than  one  fluid  phase  coexisting  in  the  reservoir.  The 
gas  phase  is  highly  compressible  whereas  the  liquid 
phases  -  oil  and  water  -  are  only  slightly  compressible. 
Added  to  these,  the  information  available  on  a  reservoir 
before  its  exploitation  is  usually  inadequate. 

A  practical  approach  in  solving  reservoir 
problems  is  to  develop  a  mathematical  model  of  the 
reservoir  by  isolating  the  important  factors  from  those 
which  are  less  relevant  to  the  problem.  In  the  present 
study,  three  types  of  reservoir  models  are  considered 
with  varying  degrees  of  complexity,  namely,  a  liquid 
reservoir,  a  gas  reservoir  and  a  water-injected  oil 
reservoir.  The  development  of  a  mathematical  model 
for  the  liquid  reservoir  is  presented  in  this  chapter. 
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The  question  of  primary  interest  regarding  a 
petroleum  reservoir  is  to  determine  the  optimum  conditions 
for  producing  petroleum,.  Of  basic  importance  in 
answering  this  question  is  an  understanding  of  the 
reservoir  behavior  as  oil  is  withdrawn  from  selected 
locations  in  the  reservoir.  Rigorous  formulation  of  a 
mathematical  model  for  the  transient  behavior  of  the 
reservoir  has  not  been  possible  until  recently  because 
the  mathematical  equations  arising  from  realistic 
formulation  are  too  complex  to  permit  solution  by 
classical  methods.  The  early  approach  to  this  problem 
had  been  to  hypothesize  a  reservoir  model  simple 
enough  for  analytical  solution  [28,  9],  Many  practical 
problems,  however,  require  more  sophisticated  treatment. 
Recently  attempts  have  also  been  made  to  understand 
the  reservoir  behavior  by  physically  simulating  the 
reservoir  such  as  by  potentiometric  and  electrolytic 
models  [26,  29].  These  methods,  besides  being  extremely 
costly,  are  reportedly  handicapped  by  instrumentation 
problems . 


' 
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Recent  advances  in  digital  computers  have  greatly 
enhanced  the  hope  of  simulating  petroleum  reservoirs  more 
precisely0  Current  literature  shows  that  digital 
simulation  of  petroleum  reservoirs  is  being  increasingly 
used  in  gaining  greater  engineering  control  of  reservoir 
operations.  Being  a  system  of  often  complex  geometry  the 
petroleum  reservoir  requires  a  large  number  of  grid  points 
for  its  simulation.  Hence  the  cost  of  digital  simulation 
becomes  an  important  factor.  The  need  for  fast  and 
efficient  numerical  techniques  of  solving  mathematical 
models  is  therefore  obvious. 

It  was  shown  in  Chapter  II  that  in  the  solution 
of  parabolic  partial  differential  equations,  the 
alternating  direction  implicit  procedure  (ADIP)  of 
Peaceman  and  Rachford,  considerably  reduced  the 
computational  time  compared  to  the  backward  difference 
implicit  method.  This  procedure  has  proved  to  be  the 
most  successful  numerical  method  employed  in  solving 
two-dimensional  reservoir  models.  This  method  however, 
cannot  be  applied  to  three-dimensional  models.  It  has 
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been  shown  in  the  previous  chapter  that  the  alternating 
direction  explicit  procedure  is  an  efficient  technique 
in  solving  multi-dimensional  parabolic  problems.  It 
has  also  an  advantage  over  ADIP  in  respect  of  computat¬ 
ional  speedo  An  aim  of  this  study  was  to  test  this  new 
method  on  a  hypothetical  oil  field  and  to  compare  the 
results  with  those  of  ADIP.  The  development  of  a 
mathematical  model  for  an  oil  reservoir  and  the  under¬ 
lying  assumptions  are  described  first. 

Formulation  of  Mathematical  Model 

In  general,  a  petroleum  reservoir  is  three- 
dimensional  and  occurs  in  wide  variety  of  geometry. 

The  magnitude  of  the  system  as  well  as  its  properties 
vary  in  all  three  directions.  Therefore,  rigorously, 
a  reservoir  problem  should  be  treated  as  three- 
dimensional.  As  a  simplification,  however,  the  dimension 
in  one  direction  is  usually  treated  as  a  parameter 
rather  than  as  an  independent  variable.  This  approxi¬ 
mation  is  reasonable  where  the  magnitude  of  the  system 
as  well  as  the  variation  of  its  properties  in  this 
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direction  are  small  compared  to  those  in  the  other  two 
directions o  Assuming  these  conditions  are  satisfied, 
the  present  study  is  confined  to  a  two-dimensional 
model,  although  this  is  not  a  limitation  on  the 
applicability  of  ADEP „  The  reservoir  of  interest  is 
a  two-dimensional  bounded  region  exemplified  by  that 
shown  in  Figure  1.  Given  the  properties  of  formation 
and  oil,  it  is  required,  to  determine  the  pressure 
distribution  in  the  reservoir  as  a  function  of  time, 
as  oil  is  withdrawn  at  a  known  rate  from  a  number  of 
arbitrarily  located  wells.  The  fundamental  formulation 
of  flow  behavior  in  a  reservoir  is  based  on  combining 
the  principle  of  mass  conservation,  an  appropriate 
flow  rate  relation,  and  an  equation  of  state  for  the 
fluid.  Assuming  single  phase,  namely  oil,  and  that 
the  saturation  of  oil  remains  constant  throughout 
the  period  of  interest,  the  principle  of  mass  con¬ 
servation  applied  to  a  differential  volume  element 
yields , 

3  p  3  3 

<(>  (x,y)h  (x,y)  S  —  =  -  —  [h(x,y)m  ]-  —  [h(x,y)m  ] 

3 1  3x  X^y  ^ 


-  w(x,y,t) 


(IV-1) 
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where 


m  ,m 
x  y 

=  mass  fluxes  in  x  and  y  directions 

respectively 

h  (x ,  y ) 

=  formation  height 

<f>(x,y)  =  porosity  of  formation 


s 

=  saturation  of  oil 

w  (x,y, t) 

=  mass  rate  of  withdrawal  of  oil 

P 

=  density  of  oil 

It  is  assumed  here  that  the  gravitational  effect  is 
negligible,.  Under  viscous  flow  conditions,  which 
normally  prevail  in  an  oil  reservoir,  the  flow  behavior 
is  adequately  described  by  Darcy's  Law,  the  differential 
form  of  which,  expressed  in  mass  units,  is  given  by: 


m  = 

X 

k(x,y)  9P 

- — —  p  —  ( IV-  2 ) 

y  9x 

where 


P 

pressure 

k  (x,y)  = 

permeability  at  (x,y) 

u 

viscosity  e 
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Assuming  the  reservoir  to  be  isotropic  in  nature;and 
substituting  for  mass  fluxes  according  to  (IV-2) , 
equation  (IV-1)  becomes: 

ap  a  kh  ap  a  kh  ap 

4>h  spc  —  =  —  ( —  p  — )  +  —  ( —  p — )-  w(x,y,t)  ( IV-3 ) 

at  ax  y  ax  ay  y  ay 


l  a  p 

where  c  =  —  —  =  compressibility  of  oil,  which  also 

p  ap 

defines  the  equation  of  st^te  for 
isothermal  conditions  in  differential 
form 


This  equation  is  nonlinear  since  p  depends,  though  mildly, 
on  Pe  For  a  slightly  compressible  liquid,  c  is  small  and 


and 


a 

kh 

ap 

kh 

ap 

—  ( — . 

— ) 

>  > 

c  — 

(— ) 

ax 

y 

ax 

y 

ax 

a  kh 

ap 

kh  ap 

—  ( — 

- ) 

>  > 

C  —  (— ) 

ay  y 

ay 

y  ay 

( IV- 4 ) 


The  conditions  under  which  this  assumption  is  appropriate 
are  quantitatively  defined  by  Dranchuk  and  Quon  [19] . 
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Then,  equation  (IV-3)  simplifies  to: 


3 P  3  kh  3P  3  kh  3P 

cs  <()h  —  =  —  ( - )  +  —  ( — -  — )  -  q(x,y,t)  (IV-5) 

3t  3x  y  3x  3y  y  9y 


where 


q(x,y,t)  =  w(x,y,t)/p  =  volume  rate  of  production 

per  unit  area. 


If  the  viscosity  can  be  assumed  independent  of  pressure, 
equation  (IV-5)  is  a  linear  second  order  parabolic 
partial  differential  equation  with  variable  coefficients 
Typical  initial  and  boundary  conditions  are: 


I.C.  P (x , y , o)  =  F (x , y ) 
3  P 
3  Y 


B  .  C 


( IV- 6 ) 

=  0  where  y  is  the  normal  to  the 

boundary . 


Equation  (IV-5)  was  integrated  numerically  by  both  ADEP 
and  AD IP.  Preparatory  to  finite  difference  approximation, 
let  x^  =  iAx,  yj=jAy,  and  t^=  nAtc  For  a  typical  point 
(i,j),  the  finite  difference  analogues  of  equation  (IV-5) 
according  to  ADEP ,  are  given  below. 
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Forward  Sweep; 


cs  ( 4> h )  . 

1 f  3 


r  p  (n+1/2)  _  p  (n) 
ifj  ifj 


At/2 


,kh 


(n+1/2)  „ (n+1/2),  ^kh 


(— )  ,  /0  •  [P.  ,  A  '  -  P) 

 y  1-1/2  /  3  1-1,3  if 


]  +(—  )• 


[E(nJ  .-P.(n).] 


y  i+l/2  /j  1+1/  j  i  /  j 


+ 


Axz 

(^).  •  ..  rp(n+1/2)-P(n+1/2)]  +  (^).  .  ..  rp.(n).  .-P.(n).] 

y  ifD-1/2  ifD-1  l f  D  y  1/D  +  1/2  i / D  +  l  i,] 

Ay  2 


-  q 


(n+1/4) 

ifj 


( IV- 7 ) 


Reverse  Sweep; 


cs  ( <J>h) 


if] 


p (n+1) _  p (n+1/2) 
ifj  ifj 


At/2 


/kh>  r  (n+1/2) 

i-1/2 , j  i-l ,  j 


p (n+1/2) 
ifj 


]  +  ( 


kh, 

y  i+l/2 , j 


[P 


(n+1) 
i  +  lf  j 


_p(n+i)] 

ifj 


Ax2 
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(!£).  .  1/,[P.(n+1{2)-p<n+1/2)1  +  (^).  ,+1/,[P<n+i>-P(n+1) 

V  1/D-1/2  i,D-1  1/3  y  'l, 3+1/2  i,3+l  i/3 


Ay2 


(n+3/4) 

qi/ j 


( IV- 8 ) 


On  letting  Ax  =  Ay,  and  rearranging,  equations  (IV-7)  and 
(IV-8)  may  be  rewritten  respectively  as: 


.kh  (n+1/2 )  ,kh, 

y  i-1/2 , j  i-1 , j  y  ;i 


.  woP.  .  T  +  tcsftjjh)  .  •  2tp" 

3-1/2  1,3-1  T  i,3  At 


+ 


+  ,/2  i  + 

y  i~ 1/2 , 3 


rkh  1  (n+1/2) 

V  i, j-1/2  i,j 


—  —  p  ^ n  ^  1  +  ( )  rP  (n)  _p^n^] 

"  (y  i  +  1/2  ,  j  l  +  l ,  j  i,jJ  +  ly  ji,  j+l/2lii,  j+1  i,jJ 


+ 


cs  ( <t>h)  ^ 


P(n) 

1/ j 


0(n+l/4) 

~i  /  j 


( IV- 9 ) 


and 


/ kh,  (n+1) 

y  i+1/2, j  i+1 , j 


,khN  p (n+1 ) 

y  i , j+1/2  i , j+1 


+  [cs(<})h)i  ^  2 


Ax2 

At 
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+  («!)  +  (“!)  ,  p(n+l) 

y  i+1/2 , j  y  i , j+1/2  Fi,j 


= 


r  (n+1/2)  (n+1/2)  kh  r  (n+1/2)  (n+1/2) 

i-1/2, j 1  i-1, j  l , j  J  V  'i,j-l/2l  i,j-l  '  i,j  1 


+  cs(*h)  .  .  2  P.(n+1/2)  -  Q.(n+3/4) 

1 / 3  At  l,:  v*i,3 


(IV-10) 


where 


Q<n+6) 
i  / : 


.Ax 

X  .  +— rr 
1  2 


Ax 

X  . - rr 

1  2 


y.+*X 

*i  2 


yi~ 


Ay 


.(n+6 )  ,  , 

g  (n,B)  d"  dB 


{ IV-11 ) 


Integration  of  equation  (IV-5)  by  ADIP  is  similarly 
carried  out  in  two  stages  for  each  time  increment. 

x-directional  Sweep; 


p (n+1/2) _  p(n) 


cs  (<f>h) 


i/l 


i/3 


i/3 


At/2 


(kh).  .  [P  <n+V2)_p  (n+1/2)  kh  [p  (n+1/2)  _p  (n+1/2)  j 

y  1-1/2, j  i-l,]  1,3  y  1+1/2, j  l+l, j  i,j 


AX' 


. 
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+ 


y  i-  rj  “1/2 


[P 


(n) 

if  j-1 


-pfn>]  +  (^> 


if  J 


y 


if  j  +  1/2 


[P 


(n)  (n)  . 

ifj+1  ifj 


(n+1/4) 

"ifj 


( IV-12 ) 


y-directional  Sweep; 

p  (n+l)_  p  (n+1/2 ) 

cs(<j>h).  .  - 

1,J  At/2 


kh  (n+1/2)  (n+1/2)  kh  (n+1/2 ) _p (n+1/2 ) 

y  i-1/2 , j  i-l ,  j  i,j  J  +  V  i  /  j+1/2  1 ,  j  +  1  i,j  J 


Ax2 


kh,  f  (n+1)  (n+1) ,  .kh.  r  (n+l)_  (n+1) 

y  ' i f  j "1/2  ^  i,j-l  ifj  y  i,j+l/2L  i,j+l“  i,j 


Ay2 


(n+3/4) 
4i  f  j 


(IV-13) 


Bringing  all  the  unknowns  to  the  left,  equations  (IV-12) 
and  (IV-13)  are  rewritten  as: 
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Ax2  .  ,kh, 


-  (— )  .  .  P.(n|1'/2)  +  [ c s  ( 4>h )  .  .  2  +  (— )  .  . 

y  1-1/2,:  i~i/:  i / d  At  y  '1-1/2,: 


/kh  ,  (n+1/2 ) _  kh  (n+1/2) 

U  i+1/2 , j  i,j  %  i+1/2 , j  i+l,j 

=  )  r  p  ^ n )  —  P^n^l  +  ( )  rp (n)  _  p  ( n )  I 

V  ' i , j-1/2  1  ,  j-1  Fi,jJ  +  (y  i r j+1/2  1  l,j+l  i,jJ 


+  cs  (*h)  .  .  2  P.(n).  -  Q.(n+1/4) 

i , j  At  l,:  i/D 


( IV-14 ) 


and 

/ kh .  (n+1)  Ax2,/kh> 

y  i,:-l/2  i,]-l  Y  l / J  At  y  'i,:-l/2 

,kh>  n  p  (n+1 )  _  ,kh  p(n+l) 

y  ' i , j+1/2 J  i , j  V  ' i , j+1/2  i,j+l 

=  (^1).  [p(n+V2)_  ptn+i/2)  kh  (n+1/2)  _p  (n+1/2) 

y  7 1-1/2, :  i-i, 3  i,]  y  '1+1/2,:  1+1,:  i,d 


+  C8(*h).  .  2  g-  P(n+1/2)  -  Q.(n+3/4) 

if]  At  i,:  i,: 


( IV-15 ) 


These  two  methods  were  tested  [34]  on  a  hypothetical 
oil  field  of  geometrical  configuration  shown  in  Figure  60 


Ifi 


o 

O 

L±_ 


TWO-DIMENSIONAL  MODEL  OF  OIL  RESERVOIR 
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While  straight  boundaries  are  chosen  in  this  example, 
curved  ones  can  also  be  handled  by  standard  techniques 
[23,40],  The  field  is  superimposed  with  a  square  network 
of  grid  points,  leaving  half-grid  spacing  all  along  the 
boundary.  The  no-flux  boundary  condition  is  approximated 
by  equating  the  pressures  on  either  side  of  and  adjacent 
to  the  boundary.  Fourteen  producing  wells  are  located 
arbitrarily  in  the  field  (Figure  6). 

Each  of  the  equations  (IV-9)  and  (IV-10)  is 
linear  and  coupled  in  three  unknowns.  Nevertheless, 
two  of  these  unknowns,  for  example,  and 

pfn+^^  in  equation  (IV-9),  either  disappear  by 

virtue  of  the  no-flux  boundary  condition  or  have  been 

previously  computed,  leaving  pfnj"l/2)  tQ  ^ e  computed 

1  /  3 

explicitly.  The  forward  sweep  starts  with  the  north¬ 
west  corner  and  ends  with  the  south-east  corner. 

In  the  reverse  sweep  which  proceeds  in  the  same  path 
but  in  opposite  direction,  p|nj"*"^  is  evaluated 
similarly  using  equation  (IV-10) .  In  ADIP,  the 
tridiagonal  matrix  equations,  arising  from  (IV-14) 


. 

' 
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as  well  as  from  (IV-15) ,  are  solved  by  the  algorithm 
of  Thomas  described  in  Chapter  II.  In  both  methods, 
the  viscosity  at  the  last  known  pressure  was  used  in 
computing  the  pressure  at  the  next  time  level. 

The  two  methods  were  programmed  on  an  IBM 
7040  computer.  The  source  listings  of  the  programmes 
are  included  in  Appendix  D.  The  data  on  the  reservoir 
and  the  oil  are  given  in  Appendix  A.  The  properties 
of  the  formation  (4>h,  kh)  are  described  in  the  form 
of  two  matrices  (Table  A-l,  and  Table  A-2). 

Computation  was  performed  by  both  methods  using  a 
wide  range  of  time  steps.  ADEP  gave  stable  solutions 
for  time  steps  as  high  as  200  days  , which  is  over  600 
times  At  (Appendix  A) ,  where  At  is  the  maximum 
time  step  consistent  with  stability  for  the 
classical  explicit  method.  Results  for  two  time  steps, 
At  =  10  days  and  At  =  20  days f are  presented  in  Tables 
A-3  through  A-7.  These  include  the  production  history, 
and  the  pressure  distribution  in  the  reservoir.  To 
enable  quick  comparison  of  the  pressures  predicted  by 
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the  two  methods,  values  taken  from  these  tables  are 
presented  in  Table  8  for  a  number  of  points  approximately 
along  a  diagonal  of  the  reservoir. 

For  a  total  decline  of  approximately  430  psia, 
the  average  difference  between  the  pressures  predicted 
by  ADEP  and  ADIP  is  about  14  psia.  The  check  is 
considered  good.  No  significance  should  be  placed  on 
the  fact  that  the  pressures  predicted  by  ADEP  are 
lower  than  those  predicted  by  ADIP.  For  a  different 
time  increment,  they  turned  out  to  be  higher. 

Table  9  shows  the  effect  of  time  step  size  on 
the  ADEP  solution  after  1000  days.  From  the  close 
agreement  between  the  three  sets  of  values,  it  is 
reasonable  to  assume  convergence  of  the  solution. 

Coats  and  Terhune  [8]  reported  that  in  a 
reservoir  problem  with  a  producing  well  located  at  a 
corner,  the  solution  by  ADEP  gave  material  balance 
deviations  of  up  to  35%.  To  examine  this,  computation 
of  the  pressure  distribution  was  repeated  with  eight 
additional  wells  located  at  the  eight  corners  of  the 


TABLE  8 


PRESSURE  DISTRIBUTION  PREDICTED  BY  ADIP  AND  ADEP 


At  =  20  days 


Grid  Point  Pressure  at  the  end  of  1000  days, 

Location  psia 


(if  j) 

ADIP 

ADEP 

i — 1 

i — ! 

636 

623 

2,2 

634 

621 

3,3 

628 

615 

4,4 

628 

615 

6,5 

624 

611 

00 

622 

609 

o 

1 — 1 

622 

608 

CO 

(N 

i — 1 

621 

606 

14,9 

622 

607 

16,10 

625 

611 

i — 1 
i — 1 

CO 

1 — 1 

627 

613 

TABLE  9 


EFFECT  OF  TIME  STEP  SIZE  ON  ADEP  SOLUTION 


Grid  Point  Pressure  at  the  end  of  1000  days, 


Location 

(if  j) 

A  t  =  5 

psia 

At  =  10 

At  = 

Ifl 

622 

622 

623 

2,2 

619 

619 

621 

3,3 

613 

613 

615 

4,4 

613 

614 

615 

6,5 

609 

609 

611 

8,6 

607 

607 

609 

10,7 

606 

606 

608 

CO 

CN 

i — 1 

604 

604 

606 

14,9 

605 

605 

607 

16,10 

608 

609 

611 

i — 1 
r— H 

00 

rH 

611 

611 

613 
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the  reservoir.  The  overall  material  balance  of  the 
results  was  computed  at  the  end  of  every  cycle. 
Estimated  and  actual  volumes  of  oil  depleted  from 
the  reservoir  were  calculated  as  follows: 


Estimated  volume  of  oil  depleted 
from  reservoir  (STB) 


=  Ax  Ay  Z  E  ( 4> h )  . 


ID 


if  D 


B (P .  .)  .  ...  n  B (P . 

i,j  initial  1 


,  j  ^ final 


Actual  volume  of  oil 
depleted  from  reservoir (STB) 


Time  *  E  E  Q . 

*.  .1,1 
ID  ' J 


B ( P )  is  the  formation  volume  factor  (Appendix  A). 
Table  A- 10  shows  some  representative  values  of  the 
ratio  of  the  actual  and  the  calculated  depletion  of 
oil  from  the  reservoir.  The  production  history  and 
the  predicted  pressure  distribution  are  given  in 
Tables  A-8  and  A-9,  respectively. 

The  value  of  the  ratio  differed  from  the 
correct  value  of  unity  by  a  maximum  of  1.8  percent 


' 
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after  the  third  cycle.  The  value  subsequently  attains 
a  steady  value  very  close  to  unity.  The  time  step 
used  was  10  days  per  cycle  which  is  about  33  times  At 
When  the  time  step  was  doubled,  the  maximum  material 
balance  deviation  was  less  than  2.4  percent.  In  either 
case,  the  deviations  are  far  less  than  those  reported 
by  Coats  and  Terhune,  at  least  in  this  reservoir 
problem.  Further,  these  deviations  will  be  even  less 
for  more  reasonable  time  steps  of  10  to  15  times  At 

In  summary,  the  alternating  direction  explicit 
procedure  was  successfully  applied  to  an  oil  reservoir 
problem.  Reservoir  behavior  predicted  by  this  method 
was  consistent  with  known  normal  behavior.  Although  a 
two-dimensional  model  was  considered  here,  the  method 
can  be  applied  to  a  three-dimensional  case. 


Vo  TWO-DIMENSIONAL  NONLINEAR  MODEL  OF  A  GAS  RESERVOIR 


In  the  previous  chapter,  the  application  of 
the  alternating  direction  explicit  procedure  (ADEP)  was 
successfully  demonstrated  for  a  linear  two-dimensional 
model  of  an  oil  reservoir0  However,  as  stated  earlier, 
the  technique  of  ADEP  is  especially  suitable  for  the 
solution  of  nonlinear  parabolic  equations.  Accordingly, 
this  procedure  was  applied  to  the  analysis  of  a  gas 
reservoir  whose  behavior  is  inherently  nonlinear. 


In  the  following  development,  the  reservoir 
considered  is  similar  to  the  oil  reservoir,  but  the 
fluid  phase  consists  entirely  of  gas.  The  geometry  of 
the  reservoir  is  such  that  a  two-dimensional  model  is 
adequate  0 


The  basic  equation  of  continuity  given  by 
equation  (IV-1)  is  valid  for  any  fluid  phase  in  the 
reservoir.  On  incorporating  Darcy's  law,  this 
equation  becomes: 


4>  h  S 


3  p  3 

kghp 

3P" 

3 

k  hp 

g 

3  P 

3 1  3x 

y 

3x_ 

3y 

y 

3y 

-  w(x,y,t)  (V-l) 
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where  k  is  the  effective  permeability.  The  equation  of 

y 

state  for  a  real  gas  is  given  by: 


P 


PM 


ZRT 


Substituting  this  in  (V-l) , 


( V-2 ) 


<|>h  S 


8 

PM 

3 

k  hPM 

y 

3P 

3 

4- 

k  hPM 

g 

3P 

3 1 

_ZRT 

3  x 

_y  ZRT 

3x 

3y 

_y  ZRT 

ay  _ 

-  w(x,y,t) 


(V-3 ) 


For  an  isothermal  reservoir,  this  may  be  rearranged  to 
yield , 


3 

-P  -I 

3 

P  3  P 

3 

i 

py 

CO 

py 

i _ 

pr 

cn 
Q  . 

1 

— 

=  - 

kgh( — )  — 

+  - 

kgh(— )  — 

J  3 1 

_Z 

3x 

y  Z  3x 

3y 

yZ  3y 

RT 

( — )  w (x , y , t )  (V-4 ) 

M 

where  y  and  Z  are  function  of  P.  Equation  (V-4)  is  a 
nonlinear,  second  order  parabolic  partial  differential 
equation.  It  is  subject  to  the  following  set  of  initial 
and  boundary  conditions: 


. 
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I.Co  P(x,y,t)  =  f(x,y)  at  some  time  t=to 
3  P 

B.C.  -  =0  (V— 5 ) 

3  y 

where  y  is  the  normal  to  the  boundary 


Al-Hussainy,  Ramey,  and  Crawford  [1]  reviewed 
the  various  analytical  and  numerical  solutions  of  this 
transient  reservoir  problem.  Among  the  recent  approaches, 
two  methods  appear  to  be  significant:  the  first  method 
is  based  on  the  concept  of  ’real  gas  pseudo-pressure' 
and  the  second  uses  an  implicit  numerical  procedure 
based  on  either  linearization  or  iteration. 


Al-Hussainy  et  al  [1]  transformed  the  nonlinear 
equation  (V-4)  into  a  quasilinear  form  by  a  change  of 
variable.  They  defined  the  'real  gas  pseudo-pressure' 
a (P) as : 


a  (P) 


3 

u  ( 3 )  z(3) 


d3 


(V-6 ) 


Substitution  of  the  derivatives  of  a (P)  into  (V-4)  leads 
to : 


' 
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3  a  3 

3  a 

3 

3  a 

S  C  (p)  y  (P)  -  =  - 

k  h  — 

-f-  — 

k  h  — 

g  g  3 1  3x 

L  9 

3y 

L  g  8y  . 

RT 

-  —  w(x,y,t)  (V-7) 

M 

The  nonlinearity  is  now  confined  to  the  capacity  term0 
Computationally,  the  integration  of  (V-7)  requires, 
presumably,  less  time  than  the  original  equation. 
However,  an  additional  interpolation  subroutine  is 
required  to  transform  a (P)  to  P  after  every  time  step. 

The  second  approach  is  illustrated  by  the 
work  of  Henderson,  Dempsey,  and  Nelson  [22] .  Their 
model  is  identical  to  that  given  by  (V-4) .  It  was 
approximated  by  the  ADIP  of  Peaceman  and  Rachford. 

The  two  finite  difference  equations  for  the  two  stages 
are  similar  to  (11-21)  and  (11-22)  and  may  be  written 
as : 


At  At  ,  v  At 

[I  -  —  GY1H]p(n  1'2*  =  [I  +  —  G^V]  p(n  -  —  r'-“1 
2  2 


GJ1^  ( V- 8 ) 


2 
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and 

At  /  .  i  \  At  /.-I  /ON  At 

(I - G~  1 V] p  n  1}  =  [I  +  -  G~ 1  H ]p_  n+1/2 - G~  1  q  (V-9) 

2  ~  2  1  2  1 

where  q  is  the  vector  of  production  rates;  G  is  a 
function  of  Z,  while  H  and  V  are  functions  of  P,y  , 
and  Z.  Rigorously^ each  matrix  equation  in  this  form  is 
a  set  m  nonlinear  algebraic  equations  in  m  unknowns 
and  may  be  solved  by  an  iterative  procedure.  Henderson 
et  al,  however,  suggest  that  matrices  Gj_  ,  H,  and  V 
be  treated  as  functions  of  P,  y,  and  Z,  but  at  one  time 
step  behind.  Hence,  equation  (V-8)  and  (V-9)  can  be 
solved  as  in  the  linear  case. 

The  advantage  of  ADEP  is  that  no  further 
approximation  need  be  made  in  solving  equation  (V-4). 

The  two-stage  approximation  of  ADEP  leads  to  two 
nonlinear  algebraic  equations  apparently  implicit 
as  in  ADIP.  For  an  interior  point  (i,j)  of  a  rectangular 
network,  these  are  as  follows: 


,  . 


dspli 
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Forward  Sweep; 


(<j)h)  .  .  S 

i/D  g 


(n+1/2 )  (n) 

<!>.  .  -  <!>  . 
j-/  i 

At/2 


(n+1/2)  ,  ,  /9. 

■P  \  r p ( n+1/2 ) _ 

giW  i“l/2  f  j  Zi-]/2  ,  j  i-1  / D 


(k  h)  .  n  .  (^) 


p  (n+1/2) 

i/  j 


Ax' 


+ 


P  (n) 

(kgh)  14-1/2,  j  (7zU/2>1  + 


P.(n).  ] 
i/D 


Ax' 


+ 


(n+1/2) 


(k  h)  .  .  n  /0  (i-=-) 

g  i, 3-1/2  uZ, 


[P. 


(n+1/2) 


i/ j-1/2 


i/  j"l 


Ay- 


p (n+1/2) 

i,  j 


+ 


(kgh) 


i / j+1/2 


(n) 

) 

i /j+1/2 


[P 


(n) 

1/  j+1 


pfn).] 

1/  D 


RT  (n+V4) 
v  M;  i,  j 


(V-10) 


Reverse  Sweep: 


Uh).  S 
i  /  D  g 


’  p  (n+1 )  (n+1/2) 

<!>  .  -  . 

j.,] _ i_<j _ 

At/2 


' 
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(k  h)  . 


("  )(n+V2)  [P.(nt1/2) 


g  i-1/2 ,  j  ^Zi i/2/j 


p (n+1/2 ) 
i  t  j  J 


Ax  ‘ 


+ 


p  <n+1) 

(k  h).  ,  (— )  [Pv 

g  1+1/2 ,3  yZj+i/2,j  1+1 


(n+1) 


p (n+1 ) 1 

i,  j 


Ax‘ 


P  (n+1/2)  (n+1/2) 

(k  h)  .  .  .  /0  (~) 

g  1, 3-1/2  tiZ.t._1/2  1,3-1 

Ay2 


p (n+1/2 ) 

i ,  j 


+ 


P  (n+l)  (n+1) 

(kgh)i,j  +  l/2  (^/1  +  1/2  + 


P.(n+1)] 

1/3 


Ay 


(*A)w(n+3/4>  (v-ii) 

M  l,] 


(n) 


where  (— =■) 

y  z  . 


P  (n)  p  (n) 

<7z>  .  . +  <ITz>  . 

i-l, 3  1/] 


i-1/2 , j 


From  the  initial  condition,  all  the  quantities  in  (V-10) 
are  known  at  some  time  t  =  nAt.  Then  the  quantities  to 


be  evaluated  at  (n+l/2)At  are:  pfn*M2^, 

1  J-  ;  ]  1  /  J  -L 


, 
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,  (n+1/2 ) 

i  /  j 


p (n+1/2) 

<!>  . 
i ,  i 


4> 


(n+1/2) 


i-1/ j 


p  (n+1/2) 

(7Z).  . 

1/3 


p  (n+1/2) 

and  <fz>  .  n 

i/3-l 


(n+1/2) 


The  last  three  quantities  arise  from  evaluating  (~) 

M  A 


p  (n+1/2) 

and  (yz?  .  1/9 
1/ 3-1/2 


i-1/2, j 

As  usual,  advantage  is  taken  of  the 


boundary  conditions  by  choosing  the  starting  point  at  a 


corner  of  the  system  network„  For  points  adjacent  to  the 

(n+1/2) 

•u  z 


(n+1/2)  (n+1/2) 


boundary, 


p  (n+1/2) 
1-1/3 


(L.) 

/  V  U  rj  ) 

1/  j-1 


either  disappear  or  are  known  by  virtue  of  the  boundary 

conditions.  For  an  interior  point,  these  are  known  from 

previous  computation.  Therefore,  in  general, 
p  (n+1/2)  (n+1/2) 

(■=•)  ,  and  (r-~=-)  are  the  only  unknowns  to  be 

i/3  i/3 

determined.  For  an  isothermal  reservoir,  y,  and  Z  depend 
only  on  pressure.  Therefore,  the  evaluation  of  these 
quantities  involves  solving , normally ,  a  relatively  low 
degree  polynomial  in  one  variable  in  each  equation. 

The  basis  of  calculational  procedure  in  the  reverse 
sweep,  using  (V-ll) ,  is  similar  except  that  the 
starting  point  now  is  the  corner  point  where  the 
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forward  sweep  ended » 


Numerical  Example: 

A  hypothetical  gas  field  containing  37 
arbitrarily  located  gas  wells  was  analyzed  [35] 0  The 
geometrical  configuration  of  the  field  is  shown  in 
Figure  70  The  grid  spacing  was  0o5  mile  giving  a 
total  of  179  gridpoints*  The  initial  pressure 
distribution  in  the  reservoir  was  assumed  to  be 
uniform  at  1000  psiaD  The  spatial  variation  of  the 
reservoir  properties  is  shown  in  the  form  of  two 
matrices  in  Appendix  B  (Tables  (B-l)  and  B-2))0 

In  the  example  chosen,  both  P  and  (P/yZ) 

could  be  expressed  as  linear  function  of  (P/Z) 

(Appendix  B) 0  These  reduce  each  of  equations  (V-10) 

and  (V-ll )  to  a  quadratic,  which  can  be  solved  explicitly 

for  the  unknown  (P/Z).  .  „  If  higher  degree  polynomials 

1 1  3 

are  needed  for  these  correlations  ,then  presumably  some 


' '  t 


FIGURE  7:  MATHEMATICAL  MODEL  OF  GAS  RESERVOIR 


103 


root-seeking  procedure  such  as  Newton-Raphson  could  be 
used  to  solve  the  resulting  polynomial. 

Table  B-3  shows  the  production  pattern  in  the 
reservoir.  The  pressure  distribution  in  the  field  was 
computed  using  two  time  steps,  At  =  30  days  and  At  = 

60  days.  The  results  are  presented  in  Tables  B-4  and  B-5C 
The  pressures  at  representative  points  approximately 
along  a  diagonal  are  shown  in  Table  10  for  three  time 
steps.  The  corresponding  values  are  sufficiently  close 
so  that  the  convergence  of  the  solution  may  be  reasonably 
assumed . 


Although  the  results  for  only  two  time  steps 

are  reported  here,  stable  solutions  were  obtained  for 

time  steps  of  over  240  days  per  cycle.  This  is  about 

35  times  At  for  the  classical  explicit  method 
max 

(Appendix  B) „  The  limiting  factor  in  the  choice  of  At 
is  , therefore ,  accuracy  rather  than  stability. 


TABLE  10 


EFFECT  OF  TIME  STEP  SIZE  ON  PREDICTED  PRESSURE 
DISTRIBUTION  IN  GAS  RESERVOIR 


Grid  point 
Location 

(i/ j) 

Pressure 

30 

at  end  of  960  days 

At,  days 

60 

(Psia) 

120 

1/1 

789 

789 

792 

*  2,2 

727 

727 

730 

3,3 

732 

733 

735 

*  4,4 

674 

674 

677 

6,5 

677 

678 

680 

*  8,6 

626 

627 

629 

r- 

o 

1 — 1 

630 

630 

632 

*  12,8 

597 

597 

599 

14,9 

630 

630 

631 

*  16,10 

611 

611 

611 

i — 1 

rH 

00 

1 — 1 

699 

699 

699 

* 


Gas  wells 
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Material  Balance 

The  solutions  were  checked  for  material  balance 
according  to  the  following  relations: 

Estimated  cumulative 
production  (moles) 

Actual  cumulative 
production  (moles) 

The  maximum  deviation  of  the  ratio,  A/E,  from  the  correct 
value  of  unity  was  less  than  0o9  percent 0  To  examine 
the  effect  of  locating  the  wells  at  corners,  the 
calculations  were  repeated  using  seven  wells  at  seven 
corners  of  the  gas  field  (Table  B-6).  The  predicted 
pressure  distribution  and  the  material  balance  are 
presented  in  Tables  B-7  and  B-8  respectively 0  The 
material  balance  remained  substantially  the  same  as 
in  the  previous  caseQ  The  maximum  deviation  of  the 
ratio  A/E  from  the  correct  value  was  about  1.0  percent, 
which  is  acceptable  for  many  reservoir  problems. 


Ax 


l  l  Uh)  M  =  E 

RT  i  j  1,3  i,j 


Ax' 

M 


l  l  wi 

x  / 

i  : 


=  A 
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In  summary,  the  ADEP  has  been  applied  to 
an  inherently  nonlinear  system  to  which  it  is  most  suitable. 
The  predicted  behavior  of  the  gas  reservoir  is  consistent 
with  that  encountered  in  practice. 


VI 0  SIMULATION  OF  TWO-PHASE  FLOW  IN  OIL  RESERVOIRS 


Displacement  of  oil  by  injecting  water  into  a 
reservoir  is  an  important  method  in  secondary  recovery 
of  oil.  Physically,  this  system  is  more  complex  than 
either  of  the  previous  two,  as  it  involves  simultaneous 
flow  of  two  immiscible  fluids,  both  of  which  are  slightly 
compressible.  Mathematically,  the  system  is  governed 
by  two  simultaneous  nonlinear  parabolic  equations.  The 
objective  in  this  study  is  to  demonstrate  the  application 
of  the  alternating  direction  explicit  procedure  (ADEP) 
in  the  study  of  two  phase  flow  in  reservoirs. 

Water  is  injected  at  a  known  rate  at  selected 
locations  in  a  reservoir,  and  oil  is  withdrawn  from 
other  suitable  locations.  It  is  required  to  determine 
the  pressure  distribution  and  the  advance  of  the  water¬ 
front  in  the  reservoir  as  a  function  of  time.  Mathe¬ 
matically,  the  formulation  of  this  problem  is  based  on 
treating  each  phase  separately  for  the  purpose  of  mass 
conservation  and  flow,  and  interrelating  the  two  through 
their  interaction  to  capillary  forces.  Accounting  for 
the  variation  of  saturation  with  time,  the  continuity 


agiovH3a3fl  no  m  wo-n  3gAH<T-owv  to  mo;  ajumi  . 
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equation  given  by  (IV-1)  is  rewritten  for  each  phase  as: 

3  3  8 

h  —  (ps)  =  -  —  [h  m  ]  -  —  [h  m  ]  +  w(x,y,t)  (VI-1) 

at  ax  x  ay  ¥ 

Incorporating  the  Darcy's  empirical  flow  relation  for 
each  phase, 

k  k  3P 

m  =  -  —  p  —  (VI-2) 

y  3x 

and  approximating  the  space  derivatives  as  in  (IV-4), 
the  basic  equations  governing  the  flow  of  water  and  oil 
in  the  reservoir  are  given  by: 


ap 

p  c  ^  -L 

as 

w 

a 

k  kh 

rw 

ap 

w 

CD 

_w  w  at 

at_ 

ax 

—  y  w 

ax  _ 

3y 


k  kh  3P 
rw  w 


w 


9Y  _ 


+  qw(x,y,t) 


(VI-3) 


and 


<J>h 


ap 


c  s 

o  o 


at 


as  -i 

o 


at 


a 

ax 


r  k  kh  ap  - 

ro  o 


y. 


ax 
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sy 


-  qQ(x,y,t) 


(VI-4) 


where  k^  =  k  (Sw)  ,  is  the  relative  permeability  to  a  phase. 


Subscripts  w  and  o  indicate  water  and  oil  phases  respectively. 
The  water  and  oil  pressures  are  interrelated  through 
capillary  pressure,  P  , 

P  =  P  -  P  =  f  (S  )  (VI-5) 

cow  w 

where  f (S  )  is  a  known  function  of  S 
w  w 

Further,  S  =  1  -  S 

r  o  w 

The  boundaries  of  the  system  are  closed  so  that, 

9  P  9  P 

— -  =  — -  =  0  (VI-6a) 

9  y  9  y 

where  y  is  the  normal  to  the  boundary.  The  pressure 
throughout  the  reservoir  is  defined  at  a  certain  time  t 

by : 
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Pw(x'y'to)  =  Fw(x'y) 

(VI-6b) 

P0(x,y,tQ)  =  FQ(x,y) 

The  three  nonlinear  equations,  (VI-3)  to  (VI-5),  subject 

to  equations  (VI-6),  have  to  be  solved  for  the  three 

unknowns  P  ,  P  ,  and  S  ,  S  being  known  from  S  0 
w'  o '  w'  o  ^  w 

An  implicit  numerical  solution  of  this  problem 
was  provided  by  Douglas,  Peaceman,  and  Rachford  [17]  with 
certain  approximations „  Firstly,  the  fluids  were  con¬ 
sidered  incompressible.  Secondly,  the  nonlinearity 
arising  from  k^  being  a  function  of  S^,  was  linearized 
by  using  k^  always  one  time  step  behind.  Then,  the 
resulting  equations  are  implicit  only  with  respect  to 
water  and  oil  pressures.  The  equations  were  solved 
by  the  alternating  direction  iterative  procedure. 

Each  iteration  step  involved  four  implicit  sets  of 
equations:  each  set  further  leads  to  a  bi-tridiagonal 
system.  Notwithstanding  the  simplifying  assumptions 
made,  the  procedure  is  involved  and  time  consuming. 


. 


Ill 


The  application  of  ADEP,  on  the  other  hand, 

does  not  require  further  simplification  of  equations 

(VI-3)  and  VI-4).  When  applied  to  these  equations, 

ADEP  leads  to  two  nonlinear  algebraic  equations  in 

three  unknowns  -  P  ,  P  ,  and  S  -  all  of  which  occur, 

wow 

significantly,  at  one  gridpoint  only.  Together  with 
the  third  equation  (VI-5) ,  these  can  be  solved  by  an 
iterative  procedure  such  as  Newton-Raphson.  The 
compressibility  C  and  viscosity  y  of  the  fluid  normally 
do  not  vary  significantly  under  isothermal  reservoir 
conditions  and  are  therefore  assumed  constant.  On 
multiplying  equations  (VI-3)  and  (VI-4)  by  ydx  dy, 
the  finite  difference  approximation  by  ADEP  is  given 
by  the  following  equations. 

Forward  Sweep 

1.  Water  Phase 


AxAy 
At/ 2 


w 


(4>h)  , 


1,3 


c  s(n+l/4)  (n+1/2 ) _  p(n) 

w  w  .  w  .  w  . 


1,3 


i,3 


i,3 


+  (S<n+1/2> 


) 


i,3  J 
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Ay 

AX 


(kh)  .  .  .k  (S(n+1/2)  )  [p<n+1/2)_  p(n+1/2> 

i-1/2,3  rw  w._1/2(j  wi_if j  wi,j 


+  (kh)  .  .  k  (S(n)  )[P(n>  -  P(n)  ] 

1+1/2,]  rw  w.+1/2(j  w.+lf.  w.#. 


+ 


Ax 


Ay 


(kh) .  .  k  (s(n+1/2>  )[p<n+1/2)_  p(n+l/2) 

i, 3-1/2  rw  w.fj_1/2  w.(j 


+  (kh)  .  k  (S(n)  )[P(n>  -  P(n)  ] 

i,]+l/2  rw  w.(j+1/2  w.jj+1  w.(. 


+  U  0(n+l/4) 

w  ~w . 

if  ] 


(VI-7) 


2.  Oil  Phase 


AxAy 

At/2 


woUh)i,j 


C  (l-s(n+1/4)) (P(n+1/2)-P(n)  ) 

O  W  .  O  .  O  . 

if :  if]  if] 


-  (s(n+1/2)-  s <n)  ) 

w .  w . 

If]  If] 
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Ay 

Ax 


(kh) 


i-1/2 


(s (n+1/2 )  (n+1/2) 

w .  ,  /0  .  o .  ,  . 

1-1/2, 3  i-l f  3 


p (n+1/2) 

o .  .  J 

1 1  3 


(kh) 


i+1/2 , j 


k  (S(n) 
r°  wi+l/2,j 


)  [P 


(n) 

3i+l / j 


-  P 


(n) 


o 


i/D 


+ 


Ax 


Ay 


(kh) .  .  .  k  (S (n+1/2 )  ) [P (n+1/2)  p (n+1/2) j 

1/2  ro  w,  ^  ^  J 


i / j“ 1/2 


o  . 


1/ j-1 


o . 


i/3 


+  (kh)  .  .  n  /0  k  (S (n) 

i,:+l/2  ro  w.^j+1/2 


)  [P 


(n)  _  (n)  , 

o  .  .  L,  o  .  .  J 

l , j+1  l, j 


0(n+l/4) 

~o  . 
i/3 


(VI-8) 


9  S 

where  -  -  is 

9 1 

by  (IV-11) . 


9  S 

substituted  for  — —  *0  and  q  are  related 

9 1 


The  new  pressures, 

saturation  S (n+l/2 
w . 


(n+1/2 )  ,  (n+1/2 )  , 

P  '  and  P  '  and  the  new 
w .  o  . 

i/3  i/3 

must  satisfy,  in  addition  to  (VI-7) 


and  (VI-8),  the  capillary  pressure  relation: 
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p(n+l/2)  _  p (n+1/2 )  =  (n+1/2) 

o  .  w .  '  w  • 

1 , J  1,J  1  ,J 


(VI-9) 


Reverse  Sweep 

1.  Water  Phase 


AxAy 

At/2 


y w  ( 4>h)  • 

w  i ,  D 


c  s (n+3/ 4 )  [p(n+l)_  p (n+1/2), 

w  w .  w .  w .  J 

i/D  i/D  i/D 


+  r s (n+1) _  s (n+1/2) , 

w .  w .  J 

i/D  i/D 


Ay 

Ax 


<kh) .  .  .  k  (s<n+1/2)  )  [P<n+1/2i  p (n+1/2 ) j 

i-1/2,3  rw  w._1/2(.  w._lf.  w.(. 


+  (kh) . 


k _ ( S.(n+1)  )  [P(n+1)  -  P(n+1)] 


i  +  l/2,j  rw  w.  .  w.  ,,  .  w. 

7  'J  1  +  1/2 1 D  i+l/D  i/D 


AX  r- 


+ 


Ay 


(kh),  . 


k  (s (n+1/2)  } [p(n+l/2)_p (n+1/2) j 


i, j-1/2  rw  w.  .  ,  '  w.  .  ,  w. 

i.D-1/2  ifD-1  i ,  D 


+  (kh)  .  .  .  k  (S(n+1)  )[P(n+a)  -  P(n+1)] 

i,]+l/2  rw  wijj+1/2  Wi>j 


+  p  Q<n+3/4) 

w  w . 

i/D 


(VI-10) 
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2o  Oil  Phase 


AxAy 

At/2 


Mo(<f,h)i,j 


C  (l-s(n+3/4) ) [p(n+1)-  P (n+1/2) ] 


w . 
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1/  D 


o  . 
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i/D  i/D 


Ay 

Ax 


(kh) .  .  k  (s(n+1/2)  )[p(n+1/2)-  p(n+l/2) 

.  1’1/2'3  r°  Wi-V2,j  °i,j 


+  (kh)  .  k  (S(n+1)  )(P(n+1)  -  p(n+1)] 

x+1/2,3  ro  wi+1/2/j  oi+1;j  oi;j 


+  ~F<kh).  ■  ,,,  k  (S<n+1/2>  )[p(n+l/2)_  p(n+l/2) 

Ay  L  1'3'1/2  r°  wi,j-l/2  °i,j 


+ 


(kh) 


i r j  +1/2 


k 

ro 


g(n+l)  )  [p (n+l )  _  p  (n+1 ) 
w.  .  , ,  o.  .  . ,  o.  . 

i/ D+l/2  i,D+1  i/D 


] 


(n+3/4) 

i/ j 


(VI-11) 


Again,  the  new  pressures  must  satisfy  the  capillary 
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pressure  relation: 

p<n+1)  _ 

o .  . 

if] 


,(n+l)  =  (s(n+l), 

w .  w . 

If]  If] 


(VI-12) 


The  points  along  the  boundary  are  associated  with  cells 
each  of  which  has  an  area  equal  to  AxAy/2  and  the  corner 
points  with  cells,  each  of  which  has  an  area  equal  to 
AxAy/40  Equations  (VI-7),  (VI-8),  (VI-10),  and  (VI-11) 

are  modified  accordingly,, 


Let 


p  (n+1/2 ) 

w . 

if] 

p (n+1/2 ) 


Z 


1 


Z 


2 


s {n+1/2 )  = 

w .  3 

if  : 


Then,  on  bringing  all  the  terms  to  the  left  hand  side, 
each  of  equations  (VI-7),  (VI-8),  and  (VI-9)  may  be 

written  as: 


=  1,2,3 


( Zp , ^2 ' ^ 3 ) 


0 


l 


(VI-13) 
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or  in  vector  notation, 

G  (  Z_)  =  £ 

where  G.  are  nonlinear  functions  of  Z .  and  G  is  the 
i  3  - 

vector  having  G^  as  its  elements  and  £  is  the  vector 
having  Z as  the  elements.  The  other  variables  at 
the  time  level  (n+1/2)  At  in  (VI-7)  and  (VI-8)  are  in 
effect  known  as  usual  in  ADEP. 

The  set  of  equation s (VI-13 )  are  solved 
iteratively  using  the  Newton-Raphson  procedure  . 

Let  Z^° ^  be  the  initial  guess  of  the  solution.  Then 
expanding  G  about  Z_^°^  and  truncating  the  terms  of 
second  and  higher  order  in  A£, 

G ( Z )  *  G(Z(o))  +  J(Z(o))  [Z  -  Z(o)]  (VI-14) 


where  J(Z)  is  the  Jacobian  matrix  defined  by: 


3GX 

3GX 

3GX 

3  Z  ^ 

3  Z  2 

3  Z  3 

3G2 

3  G2 

3  G2 

3  Z  i 

3  Z  2 

3  Z  3 

3G3 

3  G3 

3G3 

3  Z  ^ 

3  Z  2 

3  Z  3 

(VI-15 ) 
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The  solution  of  (VI-14),  which  will  be  the  next  improved 
guess , is : 


(i) 


=  Z 


(0) 


-  J 


- 1 


(Z  (  0)  )  G  (Z  (  0)  ) 


From  this,  the  general  recurrence  relation  for  the  (£+1) 
iteration  follows: 


z  U+l) 


ZU)  -  J-1  (Z(£))  G  (Z(£))  (VI-16) 


where  J”1  is  assumed  to  exist.  The  criterion  for 
terminating  iteration  is  given  by: 

|ZU  +  1)  -  ZU)  |  <  e.,  j=l,2,3  (VI-17) 

J  J  J 

being  a  prescribed  small  value  „ 

While  the  method  is  not  guaranteed  to  converge,  no 
convergence  problems  are  anticipated  in  this  case 
since  the  number  of  variables  is  only  three  and  the 
initial  guess  can  be  made  sufficiently  close  to  the 
true  solution  in  the  physical  problem. 
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Numerical  Example 

A  hypothetical  reservoir  shown  in  Figure  8  was 
studied.  Superposition  of  a  square  network  leads  to  a 
system  of  289  grid  points  spaced  at  a  distance  of  132 
ft.  A  five-spot  model  was  used  for  water-injection, 
that  is,  four  injecting  wells  near  the  four  corners 
of  the  reservoir  and  a  centrally  located  producing 
well . 


The  source  listing  of  the  computer  program 
using  ADEP  is  given  in  Appendix  D.  The  properties  of 
both  reservoir  formation  and  oil  are  believed  to  fall 
within  the  range  of  those  found  in  Alberta  and  are 
described  in  Appendix  C.  These  include  the  distribution 
of  ( 4) h )  and  (kh)  of  the  formation  (Tables  C-l  and  C-2) 
and  the  capillary  pressure  data  in  graphical  form  (Figure 
C-l) .  For  better  accuracy,  the  capillary  pressure 
data  were  divided  into  two  sections,  and  each  section 
was  curve-fitted  separately  using  least  squares 
criteria.  The  data  at  the  ends  of  the  saturation 
range  were  extrapolated.  The  relative  permeability 
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FIGURE  8:  SIMULATION  OF  WATER-INJECTED  RESERVOIR 


®  INJECTING  WELLS 
•  PRODUCING  WELL 
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data  were  also  unavailable  at  the  extremes  of  the 
saturation  range.  Empirical  correlations  of  the  relative 
permeability  with  extrapolation  at  the  extremes  of 
saturation  range  proved  to  be  unsatisfactory .  The 
solution  converged  to  saturations  greater  than  unity 0 
These  correlations  were  replaced  subsequently  by  analytical 
functions .  These  and  the  empirical  correlations  for  the 
capillary  pressure  are  given  in  Appendix  C. 

The  reservoir  was  assumed  to  be  at  a  uniform 
pressure  of  2700  psia  and  at  a  uniform  saturation  of 
0.15.  The  production  rate  was  maintained  constant  at 
125  barrels  per  day  of  fluids  measured  at  2700  psia. 

It  was  assumed  that  the  oil  and  water  produced  from  the 
well  were  in  the  ratio  of  their  mobilities.  The 
injection  rate  of  water,  distributed  equally  among 
the  four  wells,  was  also  constant  during  any  run. 

This  was,  however,  varied  in  a  series  of  runs  from 
1.0  to  1.25  times  the  production  rate.  Computations 
were  performed  using  comparatively  large  time  steps 
of  10,  20,  and  40  days  per  cycle.  The  initial  guess 
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vector  and  the  criteria  for  terminating  iteration  in 
equation  (VI-17)  are  given  in  Appendix  C.  A  typical 
matrix  of  iterations  at  all  the  points  in  the  network 
is  given  in  Table  C-3  in  Appendix  C.  The  solution 
converges  in  approximately  3  to  4  iterations  on  the 
average . 


A  production  rate  of  125  barrels  per  day,  and 
an  equal  injection  rate,  caused  rapid  pressure  decline 
in  the  producing  well.  Over  a  period  of  640  days,  the 
pressure  dropped  from  2700  psia  to  260  psia.  During 
the  same  period,  the  pressure  at  an  injecting  well 
rose  to  about  3180  psia.  This  large  gradient  in 
pressure  between  the  injecting  and  producing  wells 
was  caused  obviously  by  the  low  absolute  permeability 
of  the  formation,  A  decrease  in  production  rate 
was  not  considered  desirable  since  it  was  already  low 
compared  to  the  total  oil  present  in  the  reservoir 
(1.7  million  barrels).  Alternatively,  the  injection 
rate  was  increased  to  1.10  times  the  production  rate. 
Consequently,  the  producing  well  pressure  could  be 
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maintained  at  a  reasonable  level.  With  these  rates, 
it  took  nearly  5,000  days  of  real  time  to  advance  the 
water-front  close  to  the  producing  well.  To  save 
computing  time,  a  large  time  step  of  20  days  per  cycle 
was  used.  The  computing  time  was  approximately  3.50 
hours  on  IBM  7040. 

Table  C-4  in  Appendix  C  gives  a  complete 
description  of  the  distribution  of  water  pressure,  oil 
pressure  and  the  water  saturation  throughout  the 
reservoir  at  different  times.  Assuming  an  arbitrary 
saturation  of  0.20  to  represent  the  water-front,  contours 
of  the  advancing  water-front  are  shown  in  Figure  9. 

The  saturation  profiles  between  the  producing  well  and 
two  injecting  wells  are  shown  in  Figures  10  and  11. 

The  pressure  build-up  at  an  injecting  well  and  the 
pressure  decline  at  the  producing  well  are  described 
in  Figures  12  and  13  respectively. 

The  injecting  well  at  (4,4)  (Figure  9)  is 
surrounded  by  a  low  permeability  zone  (Table  C-2) . 


' 


j 

1  3  5  7  9  11  13  15  17 


FIGURE  9  ADVANCE  OF  WATER-FRONT  WITH  TIME 


WATER  SATURATION 
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FIGURE  10  SATURATION  PROFILES  BETWEEN 
PRODUCING  WELL  AND  INJECTING  WELL  (14,14) 
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FIGURE  11  SATURATION  PROFILES  BETWEEN 
PRODUCING  WELL  AND  INJECTING  WELL  (14,4) 
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This  is  responsible  for  the  fact  that  the  4800-day 
contour  around  this  well  does  not  merge  with  those  of 
the  neighboring  wells.  As  can  be  expected,  the 
water-front  advance  is  maximum  in  the  direction  of  the 
producing  well.  The  contours  are  almost  coincident 
toward  the  boundaries,  thus  reflecting  the  effect  of 
no-flux  boundary  condition.  The  saturation  profiles 
of  Figure  10  and  11  exhibit  a  rather  sharp  gradient 
at  the  water-front  indicating  that  the  capillary 
effect  was  small. 

At  the  beginning  of  the  operation,  the  sharp 
increase  in  pressure  at  the  injecting  well  (Figure  12) 
and  the  sharp  decline  at  the  producing  well  (Figure  13) 
are  natural  since  the  overall  pressure  distribution 
was  rather  uniform  and  there  was  less  flow  of  fluids 
towards  or  away  from  the  wells.  The  subsequent 
pressure  build-up  is  caused  by  the  accumulation  of 
water  in  excess  of  the  oil  removed  from  the  reservoir. 

The  fractional  saturation  (Table  C-4)  beyond 
the  water-front  exhibited  a  small  decrease.  This  is 
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contrary  to  the  anticipated  increase  in  water  saturation 
throughout  the  reservoir.  This  effect  is  greater  for 
greater  excess  of  water  injected.  The  decrease  in 
saturation  was  caused  probably  by  a  combination  of  factors. 
There  is  an  accumulation  of  mass  throughout  the  reservoir 
as  a  result  of  excess  water  injected.  In  the  low 
saturation  region,  the  relative  permeability  to  oil  is 
large  while  the  relative  permeability  to  water  is 
negligible.  This  causes  an  influx  of  oil  and  little  or 
no  influx  of  water.  The  influx  of  oil  could  be  accommodated 
by  the  compression  of  fluids,  largely  by  that  of  water 
because  of  its  greater  compressibility.  This  results  in 
an  increase  in  oil  saturation  or  decrease  in  water 
saturation.  In  this  case  the  value  of  compressibility 
of  water  used  happened  to  be  greater  than  that  of  oil, 
although  the  reverse  is  true  in  practice. 

Stability 

In  the  absence  of  a  proper  method  of  stability 
analysis  of  simultaneous  nonlinear  equations,  it  is  not 
possible  to  make  a  definite  statement  regarding  the 
stability  criterion.  The  maximum  time  step,  At  ,  for 
the  classical  explicit  method,  given  below,  is  only  a 
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crude  estimate.  Considering  the  linear  form  of  equations 
(VI-3)  and  (VI-4), 


At 

max 


1 

4 


yc 


"s 

w 

<j)h 

k 

u  r  - 

min 

_kh 

min 


Kx2 
6  o  32 


(VI-18) 


It  is  observed  that  the  value  of  At  will  be  consider- 

max 

ably  different  for  water  and  oil,  becuase  their  k^ 

values  are  different.  Further,  since  k  varies,  so 

r  ' 

will  the  value  of  At  ,  Based  on  the  conditions  at 

max 

the  beginning  of  the  reservoir  operation,  the  maximum 
time  step  for  water  will  be  obviously  a  large  value. 

On  the  other  hand.  At  for  oil  is  only  0.116  day. 

In  solving  equations  (VI-7)  to  (VI-12) ,  time  steps 
of  up  to  40  days  per  cycle  were  used  and  the  solutions 
obtained  were  apparently  stable. 

Material  Balance 

The  conservation  of  mass  in  each  phase  was 
checked  at  regular  intervals  and  the  results  are  shown 
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in  Table  C-5.  Two  points  are  significant.  The  material 
balance  deviation  for  water  is  consistently  small  while 
it  is  significantly  large  for  oil.  The  latter,  however, 
decays  with  time.  It  appears  that  the  errors  inherent 
in  using  large  time  steps  probably  caused  the  deviation 
in  material  balance «,  It  may  be  noted  that  a  time  step 
of  20  days  is  about  172  times  At  for  oil  at  the 
beginning  of  the  operation  when  the  errors  are  large. 

The  value  of  this  factor  decreases  with  time  since 
At  value  increases  (equation  VI-18)  as  a  result  of 
decreasing  relative  permeability  to  oil.  Significantly, 
the  errors  also  decrease  with  time.  This  is  apparently 
because  the  factor  At/At  decreases  with  time.  For 
a  large  part  of  the  reservoir  operation,  Atmax  f°r 
water  is  large  and  hence  is  comparatively  smallo 

Probably  for  this  reason  the  material  balance  deviation  is 
small  for  water. 

In  this  study,  an  unduly  large  time  step  was 
used  in  order  to  approach  breakthrough  within  a 
reasonable  computing  time.  To  ensure  accuracy  in 
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material  balance,  it  is  imperative  that  a  more  reasonable 
time  step  of.  say,  about  20  times  At  ,  should  be  used 
at  least  in  the  early  part  of  the  reservoir  operation,. 

In  summary,  the  alternating  direction  explicit 
procedure  could  successfully  solve  simultaneous  nonlinear 
parabolic  equations 0  Iteration  involved  variables  at  one 
grid  point  only.  The  solution  converged  in  less  than 
four  iterations.  It  is  believed  that  in  solving  non¬ 
linear  equations  such  as  the  above,  ADEP  is  computationally 
faster  than  the  alternating  direction  implicit  procedures. 
To  ensure  accuracy  in  material  balance,  it  is  imperative 
that  time  steps  of  reasonable  size  should  be  used.  The 
magnitude  of  such  a  time  step  is  satisfactory  for  most 
practical  problems. 


CONCLUSIONS  AND  RECOMMENDATIONS 


The  second  order  parabolic  partial  differential 
equation  resulting  from  a  diffusion  process  can  be 
converted  into  a  first  order  matrix  differential  equation . 
The  various  numerical  methods  have  been  shown  to  result 
from  different  splittings  of  the  coefficient  matrix  in 
this  equation.  The  stability  of  the  solution  is  determined 
by  the  properties  of  the  integrating  matrix.  The  matrix 
method  of  stability  analysis  is  more  general  than  the  von 
Neumann  technique e  Unlike  the  latter,  the  matrix  method 
can  treat  the  finite  difference  approximations  of  linear 
parabolic  equations  with  variable  as  well  as  constant 
coefficients.  Techniques  need  to  be  developed  for 
analyzing  the  stability  of  the  numerical  solution  of 
nonlinear  parabolic  equations.  The  application  of 
matrix  theory  is  useful  in  the  analysis  of  numerical 
procedures  and  also  in  providing  an  insight  into  new 
approaches  to  numerical  solution  of  partial  differential 
equations . 

The  alternating  direction  explicit  procedure 
( ADEP )  combines  the  computational  simplicity  of  the 
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explicit  methods  with  the  unconditional  stability  of  the 
implicit  methods.  The  ADEP ,  extended  to  the  three- 
dimensional  case,  compared  favorably  with  the  best 
alternating  direction  implicit  procedure  (B-D-R  method) 
at  average  size  time  steps.  Their  accuracies  were  of 
the  same  order  and  ADEP  was  computationally  faster. 

At  larger  size  time  steps,  the  greater  computational 
speed  of  ADEP  must  be  weighed  against  the  somewhat 
better  accuracy  of  the  B-D-R  method. 

The  concept  of  ADEP  was  extended  to  the 
solution  of  nonlinear  parabolic  partial  differential 
equations.  The  computational  speed  of  ADEP,  compared 
to  that  of  any  ADIP  is  a  greater  advantage  in  the 
nonlinear  case  than  in  the  linear  case. 

While  these  methods  represent  considerable 
advance  over  the  classical  implicit  and  the  classical 
explicit  methods,  for  reasonable  accuracy  they  still 
require  large  amounts  of  computing  time  in  the 
solution  of  nonlinear  and  large  linear  systems.  Two 
of  the  possible  approaches  for  further  study  in 
reducing  the  computing  time  are: 


. 


136 


1.  To  seek  a  more  accurate  approximation  of 
the  partial  differential  equation  by 

a  matrix  differential  equation  by  using 
a  higher  order  correct  discretization  of 
the  space  derivative, 

2,  To  find  an  accurate  and  efficient 
procedure  for  integrating  the  matrix 
differential  equation. 

No  computing  problems  were  encountered  in 
solving,  by  ADEP,  two-dimensional  models  of  three  types 
of  petroleum  reservoirs  -  a  linear  model  of  a  liquid 
reservoir,  a  nonlinear  model  of  a  gas  reservoir,  and  a 
rigorous  mathematical  model  of  two-phase  flow  in  a 
water-injected  oil  reservoir.  The  solution  of  the 
linear  model  by  ADEP  checked  well  with  that  obtained 
by  ADIP  of  Peaceman  and  Rachford.  The  ADEP  solutions 
in  all  three  cases  were  apparently  stable.  For 
accuracy  of  the  solution  and  of  the  material  balance, 
reasonable  size  time  step  should  be  used.  Such  a 
size  is,  however,  large  enough  for  most  practical 
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purposes.  The  material  balance  deviation  observed 
when  using  very  large  time  steps  needs  to  be 
investigated  further. 

Although  only  two-dimensional  models  were 
solved  in  this  study,  the  author  believes  that  ADEP 
can,  as  well,  solve  three-dimensional  models,  which 
more  accurately  represent  many  petroleum  reservoirs. 


NOMENCLATURE 


SCALARS 


B 

Formation  volume  factor 

C 

Compressibility,  1/psia 

g 

Capacity  term 

h 

Formation  height,  ft. 

K 

Rate  coefficient 

k 

Absolute  permeability,  darcy 

1 

Effective  permeability  to  a  fluid,  darcy 

k 

r 

Relative  permeability 

m 

Number  of  grid  points  along  a  column  or  row 

m  - 

X 

Mass  flux  in  x-direction 

m 

y 

Mass  flux  in  y-direction 

M 

Molecular  weight 

P 

Pressure,  psia 

Q 

Production  or  injection  rate  at  reservoir 
conditions,  bbl/day 

Q' 

Production  or  injection  rate  at  surface 
conditions,  STB/day 

q 

Production  or  injection  rate  per  unit  area 
at  reservoir  conditions,  (bbl.)/  (ft2) (day) 

R 

Gas  constant,  (psia) (ft3 )/ (lb-mole) ( °R) 

r . 

1 

Elemental  region  or  cell  at  i*-*1  grid  point 

S 

Source  term 

Fractional  saturation  of  water 


T 

T 

t 

u 

w 


x,y ,  z 

z 


Absolute  temperature ,  °R 
True  solution 
Time,  days 

Approximate  solution  to  T 

Gas  production  rate  per  unit  area, 

(lb) /ft2 ) (day) 

Space  coordinates  (rectangular  system) 
Compressibility  factor 


GREEK  LETTERS 


a 

3 

Y 

A t , Ax , 
Ay ,  AZ 


Real  Gas  psuedo-pressure 

Dummy  variable 

Normal  to  a  system  boundary 

Increments  in  t,x,y,  and  z  respectively 


e 

n 

0 


Forward  difference  with  respect  to  3 
Criterion  to  terminate  iteration 
Dummy  variable 
At/Ax2 


A 


Eigenvalue  of  a  matrix 


' 


y 

Viscosity,  cp 

P(A) 

Spectral  radius  of  matrix  A 

P 

Density,  lb/ft  3 

T  - 

Truncation  error 

(j) 

Formation  porosity  (fraction) 

0)  - 

Relaxation  factor  in  PSOR  method 

VECTORS , 

MATRICES 

A 

Matrix  operator  representing  space  derivatives 

B 

Coefficient  matrix  of  a  numerical  method 

C 

Coefficient  matrix  of  a  numerical  method 

D 

Diagonal  matrix  formed  from  A 

l 

CM 

Pi 

1 - 1 

Pi 

Matrices  resulting  from  splitting  D  according 

to  ADEP 

E 

Strictly  lower  triangular  matrix  formed  from  A 

F 

Strictly  upper  triangular  matrix  formed  from  A 

G 

Diagonal  matrix  whose  diagonal  elements 
represent  average  capacities  of  elemental 
regions  or  cells 

H 

Tridiagonal  matrix  derived  from  splitting,  A 

according  to  ADIP 

J 

Jacobian  matrix  defined  by  equation  (VI-15) 

M,N 

Matrices  derived  from  general  splitting  of  A 

P 

Matrix  to  be  inverted  in  any  numerical  method 

P(n) 

Pressure  vector  at  time  nAt 

Q 

Vector  of  production  or  injection  rates 

R 

Coefficient  matrix  in  the  explicit  part  of  a 

numerical  method 

S 

Vector  of  source  terms 

T 

True  solution  vector 

u 

Approximate  solution  vector 

V 

Tridiagonal  matrix  derived  from  splitting  A 

according  to  ADIP 

ZU)  - 

£th  vector  iterate  of  Z 

T  ~ 

Truncation  error  vector 

SUBSCRIPTS 

i 

Position 

i/j/k  - 

Position  in  x,y,  and  z  directions  respectively 

F 

Forward  Sweep  in  ADEP 

f 

Fluid 

g 

Gas 

o 


Oil 


r 

R 

w 


Relative 

Reverse  Sweep  in  ADEP 
water 


SUPERSCRIPTS 


(n) 

— 

nth 

time  step 

U) 

C— 

£th 

iteration 

Intermediate  estimate  of  approximate  solution 
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APPENDIX 


APPENDIX  A 


OIL  RESERVOIR 

Reservoir 

Initial  Pressure  P 

o 

Saturation  Pressure  of 

oil  P 

s 


1065  psia 

500  psia 


Oil 

If  the  production  rate  is  specified  at  surface 
conditions,  i0e0 ,  Q'  in  stock  tank  barrels,  the  rate  at 
reservoir  conditions,  Q,  is  given  by: 

Q  =  O'  *  B (P) 

where  P  =  reservoir  pressure,  psia 
B  =  formation  volume  factor  , 

B  (P )  =  1.132  -  7  o  611  *  10"6P 

y  (P)  =  2.377  +  1.327  *  10"4P 

C  =  6.7617  *  10"6  (psia)"1 

S  =1.0 


Network 


1320  ft. 
179 
14 

At  for  the  FDE  Scheme 
max 


Grid  spacing  Ax  (=Ay) 

No o  of  grid  points 
No0  of  producing  wells 


At  is  the  maximum  time  step  consistent  with 
max  ^ 

stability  of  the  Forward  Difference  Explicit  Scheme 0 

The  calculation  of  At  for  the  variable  coefficient 

max 

equation  (IV-5)  requires  determination  of  the  eigen¬ 
values  of  the  coefficient  matrixc  A  simpler  approximate 

method  is  to  estimate  At  on  the  basis  of  (k/d>y) 

max  max 


1 

K 

"  At  At 

cs 

(f>y_ 

max 

l 

CSl 

l>1 

lo 

b 

Csl 

lx 

l< 

1/2 


Then, 


At  -  0o3  day 

max 


TABLE  A-  1 


PHI*H  MATRIX  (FT)  -  GIL  RESERVOIR 
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K*H  NATRIX  (DARCV-FT)  -  C I L  RESERVOIR 
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PRCCLCT  IGN 

PATTERN 
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MATRIX  OF  PRESSURE  IN  OIL  R E SE R VO  I R  ,  ( P S I  A ) .  BY  AOEP 


| T  I  ME  STEP  =  10. 00  GAYS) 


TIME  =  ICO. 

CAYS 

)  1 

2  3 

4 

5  6 

7  8 

9 

10 

11 

I 

I 

1029. 

1028.  1026. 
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102  1  . 

1019.  1016. 

1017.  1018. 

5 

1 C26  . 
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1016. 
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1026. 
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1021. 
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1020.  1020. 
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102  1. 

1021. 
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FABLE  A-  4 


MATRIX  C1F  PRESSURE  IN  OIL  RE  SER  VO  I R  ,  {  PS  I  A  )  .  BY  ADEP 


(  I  I M E  STEP  --  1 0.00  DA V S  ) 


TIME  = 

30  0  . 

DAYS 

J  1 

2 

3 

4  5 

6 

7 

8 

9 

10 

1  I 

I 


1 

939. 

938  . 

936. 

934  . 

932. 

930. 

930. 

930. 

2 

939. 

93  7. 

934. 

933. 

930. 

928. 

928. 

929. 

3 

938. 

936  . 

931 . 

93  1. 

928. 

922. 

926. 

928. 

4 

937. 

935. 

933. 

93  1 . 

929. 

926. 

926. 

927. 

5 

937. 

935  . 

932. 

930. 

928. 

925. 

926. 

926. 

6 

936. 

934. 

929. 

929. 

926. 

919. 

924. 

925. 

7 

936. 

934  . 

931. 

929. 

927. 

924. 

924. 

925. 

925. 

925. 

925. 

8 

937. 

935  . 

931. 

929. 

927. 

924. 

924. 

924. 

92  3. 

924. 

924. 

9 

938. 

93  5  . 

929  . 

929. 

926. 

919. 

923. 

922. 

919. 

922. 

924. 

1C 

9  39. 

93  7  . 

932. 

930. 

927. 

924. 

923. 

923. 

922. 

923. 

923. 

I  1 

940. 

937  . 

933. 

930. 

927. 

924. 

923. 

922. 

921 . 

922. 

92  3. 

12 

941. 

938  . 

9  3  C  . 

930. 

926. 

919. 

922. 

921  . 

917. 

922. 

923. 

13 

942. 

9  4  C  . 

935. 

932  . 

928. 

924. 

923. 

923. 

922  . 

923. 

924. 

14 

943. 

94  1 . 

937. 

934. 

929. 

924. 

924. 

923. 

923. 

924. 

925. 

15 

942. 

94C  . 

935. 

935. 

929. 

918. 

92  3. 

923. 

920. 

924. 

926. 

16 

935. 

932. 

926. 

926. 

926. 

925. 

926. 

92  7, 

17 

9  35. 

931. 

927. 

92  7. 

927. 

926. 

927. 

928. 

18 

93  3. 

929. 

920. 

926. 

92  7. 

92  3. 

927. 

929. 

19 

933  . 

931. 

928. 

928. 

929. 

92  8. 

929. 

929. 
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TABLE  A-  4 


MATRIX  GF  PRESSURE  IN  GIL  RESERVOIR, ( PSIA) .  BY  ADEP 


(TIME  STEP  =  1C. CO  CAYS) 


TIME  =  5CQ  .  DAYS 


J 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

I 

1 

849. 

84  7  . 

845. 

84  3. 

841 . 

840. 

839. 

839. 

2 

848. 

84  6  . 

844. 

842. 

840. 

837. 

838. 

838. 

3 

847. 

845  . 

840. 

8  4  C  . 

838. 

831. 

8  36. 

837. 

4 

847. 

84  5  . 

842. 

840. 

838. 

835. 

836. 

837. 

5 

846  . 

844  . 

842. 

840. 

837. 

834. 

835. 

836. 

6 

845. 

84  3  . 

838. 

838. 

836. 

828. 

833. 

834. 

7 

84  6. 

844  . 

84  1 . 

839. 

836. 

834. 

834. 

834. 

834. 

835. 

835. 

8 

847  . 

844  . 

84  1  . 

839. 

8  36. 

834. 

834. 

833. 

833. 

834. 

834. 

<3 

847. 

845  . 

838. 

838. 

835. 

829. 

8  32. 

832. 

628. 

832. 

633. 

1C 

848 . 

846  . 

842  . 

839. 

836. 

83  3. 

833. 

832. 

831  . 

832. 

633. 

1  1 

849. 

84  7. 

842. 

839. 

836. 

833. 

832. 

832. 

831  . 

832. 

832. 

12 

850. 

84  7  . 

839. 

839. 

835. 

829. 

831 . 

831  . 

827. 

831 . 

833. 

13 

851  . 

849. 

845. 

842. 

837. 

833. 

833. 

832. 

83  1  . 

832. 

833. 

14 

852. 

85C  . 

846. 

843. 

838. 

833. 

833. 

833. 

832. 

833. 

634. 

15 

852. 

849  . 

844. 

844. 

838. 

828. 

833. 

833. 

830. 

834, 

835. 

16 

844. 

841. 

835. 

835. 

835. 

834. 

835. 

836. 

17 

844. 

840. 

836. 

83  7  . 

8  36. 

836. 

837. 

837. 

18 

842. 

839. 

830. 

836. 

836. 

833. 

837. 

838. 

19 

842. 

840. 

83  7. 

838. 

838. 

837. 

838. 

839. 
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_  __  TABLE.  A-  4 

MATRIX  CF  PRESSURE  IN  GIL  R E S E R VO  I R , ( PS  I  A ) .  BY  ADEP 
_ (TIME  STEP  =  10.00  DAYS) 


TIME  = 

700. 

DAYS 

J  1 

2 

3 

4  5 

6 

7 

8 

9 

10 

11 

I 


1 

758. 

756  . 

7  5  5. 

753. 

751  . 

74  9. 

74  9. 

749. 

2 

757  . 

756  . 

7  53. 

751. 

749. 

747. 

747. 

748. 

3 

757. 

754  . 

750. 

750. 

747. 

741. 

745. 

747  . 

4 

756. 

754  . 

75  1. 

750. 

747. 

745. 

745. 

746. 

5 

755. 

754  . 

75  1. 

749. 

74  7. 

744. 

745. 

745. 

6 

755  . 

75  3  . 

748  . 

748. 

74  5. 

738. 

7  43. 

744. 

7 

755. 

753  . 

7  50. 

748. 

746. 

74  3  . 

74  3. 

744. 

744. 

744. 

744. 

8 

756. 

7  54  . 

750. 

748. 

746. 

74  3. 

743. 

743. 

742. 

743. 

743. 

9 

757  . 

754  . 

748. 

748. 

745. 

738. 

741. 

741  . 

738. 

741. 

742. 

10 

758  . 

75  5  . 

75  1. 

74  8. 

746. 

743. 

742. 

742. 

740. 

741. 

742. 

1  1 

7  59. 

756  . 

751. 

749  . 

7  4  6. 

742. 

742. 

741. 

74  0. 

741. 

742. 

12 

760. 

756  . 

74  8. 

748. 

745. 

738. 

741. 

740. 

736. 

740. 

742. 

13 

761. 

758  . 

754. 

75  1. 

7  47. 

74  3. 

742. 

742. 

741 . 

742. 

743. 

14 

761. 

759  . 

755. 

752. 

748. 

743. 

743. 

742. 

741  . 

743. 

744. 

15 

761. 

759  . 

753. 

753. 

748. 

737. 

742. 

742. 

739. 

74  3. 

744. 

16 

753  . 

7  50. 

74  5. 

74  5. 

744. 

744. 

745. 

746. 

17 

75  3. 

750. 

745. 

746. 

746. 

745. 

746. 

74  7. 

18 

75  1. 

748. 

739. 

745. 

746. 

742. 

746. 

747. 

19  751.  749.  746.  747.  747.  746.  747.  748. 
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TABLE  A-  4 

MATRIX  OF  PRESSURE 

IN  OIL  RESERVO IR ,( PSI A) .  BY  ADEP 

(TIME 

STEP  =  10. CO  CAYS) 

TIME  =  ICOO.  DAYS 


J 

1 

2 

-a 

4 

5 

6 

7 

8 

9 

10 

11 

I 

 1 

622. 

6  2  C  . 

618. 

616. 

6  15. 

613. 

612. 

613. 

2 

621  . 

619  . 

617. 

6  15. 

613. 

611. 

611. 

612. 

3 

620. 

618. 

613. 

614. 

6  11. 

605. 

609. 

611. 

4 

620. 

6  18. 

6  15. 

6  14. 

611. 

609. 

609. 

610. 

5 

619. 

6  17. 

615. 

613. 

6  11. 

608. 

608. 

609. 

6 

619. 

616. 

612. 

6  12. 

609. 

602. 

60  7. 

608. 

7 

619. 

617. 

614. 

612. 

6  10. 

607. 

607. 

608. 

608. 

608. 

608. 

8 

620. 

617  . 

614. 

6  12. 

6  10. 

60  7. 

607. 

607. 

606. 

607. 

607. 

9 

620. 

618  . 

612. 

611. 

609. 

602. 

605. 

605 . 

602. 

605. 

606. 

1C 

621. 

619. 

6  15. 

612. 

6  10. 

607. 

606. 

606. 

604. 

605. 

606  . 

1 1 

622. 

6  2  C  . 

615. 

613. 

610. 

606. 

606. 

605. 

604. 

605. 

606. 

12 

623. 

62 C  . 

6  12. 

612. 

609. 

602. 

605. 

604. 

600. 

604. 

606. 

1  3 

624. 

622  . 

618. 

615. 

611. 

60  6. 

606  • 

606  . 

605. 

606. 

607. 

14 

625. 

623  . 

619. 

616. 

612. 

60  7. 

60  7. 

606. 

605. 

607. 

608. 

15 

625. 

622  . 

617. 

617. 

612. 

601. 

606. 

606. 

603. 

607. 

60tt  . 

16 

617. 

6  14. 

609. 

609. 

608 . 

608. 

609. 

610. 

17 

6  17. 

6  14. 

609. 

6  10. 

610. 

609. 

610. 

611. 

18 

615. 

612. 

603. 

609. 

610. 
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610. 

611. 

19 
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611. 

611. 

610. 

611. 
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TABLE  A-  A 


MATRIX  OF  PRESSURE  IN  GIL  RESERVO  IR  ♦  ( PS  I  A ) .  BY  ADEP 


(TIME  STEP 

=  10. 

00  CAYS) 

•  L’  I 

TIME  = 

1200. 

DAYS 

J 

1 

2 

3 

A 

5 

6 

7 

8 

9 

10 

1 1 

I 

1 

531. 

529  . 

528. 

526. 

5  2  A  . 

522. 

522. 

522. 

2 

530. 

529  . 

526. 

5  2  A  . 

522. 

520. 

520. 

521  . 

3 

530. 

527  . 

523. 

523. 

520. 

51  A. 

518. 

520. 

A 

529. 

52  7  . 

525. 

523  . 

521 . 

518. 

519. 

519. 

5 

528. 

527  . 

5  2  A  . 

522. 

520. 

517. 

518. 

518. 

6 

528. 

526. 

521 . 

52  1  . 

5  18. 

511. 

516. 

517. 

7 

528. 

526  . 

523. 

521. 

519. 

516. 

517. 

517. 

517  . 

517. 

517. 

8 

529. 

527  . 

523. 

521  . 

5  19. 

516. 

516. 

516. 

515. 

516. 

517. 

9 

530. 

52  7  . 

521. 

52  1  . 

518. 

512. 

515. 

51A. 

511. 

515. 

516. 

10 

531 . 

528  . 

5  2  A . 

522  . 

519. 

516. 

515. 

515. 

5 1 A  . 

515. 

515. 

1  l 

531  . 

529  . 

52A. 

522. 

5  19. 

516. 

515. 

51  A. 

513. 

5  1 A  . 

515. 

12 

532. 

529  . 

521. 

521. 

518. 

511. 

5  1A. 

5 1 A  . 

510. 

5  1 A . 

515. 

13 

533. 

531. 

527. 

52 A  . 

520. 

516. 

515. 

515. 

5  1 A . 

515. 

516. 

1A 

53A. 

532  . 

528. 

525. 

521 . 

516. 

516. 

515. 

515. 

516. 

517. 

1  5 

5  3  A  . 

53  I  . 

526. 

526. 

521 . 

510. 

515. 

515. 

512. 

516. 

518. 

16 

526. 

523. 

518. 

516. 

518. 

517. 

518. 

519. 

17 

526. 

523. 

518. 

519. 
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518. 
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TABLE  A-  5 


MATRIX  OF  PRESSURE  IN  OIL  RE SE R VG I R  ,  ( PS  I  A ) .  BY  ADIP 


( T  I  HE  STEP  =  10.00  CAYS) 


TIME  =  ICC.  DAYS 


1  1 

2 

-x 

4 

5 

6 

7 

8 

9  10 

1 1 

I 

1 

1029. 

1027  . 

1025. 

1C2  3  . 

1021. 

1020. 

1019. 

1019. 

2 

1028. 

1026. 

1024. 

1022. 

1020. 

1018. 

1018. 

1019. 

3 

1  C  2  7  . 

1C2  5  . 

1020. 

1020. 

1018. 

1011. 

1016. 

1018. 

A 

IC27. 

1C25  . 

1022. 

1 C  2  1 . 

10  18. 

1016. 

1016. 

1017. 

5 

1C26  . 

1024  . 

1022. 

1 C  2  0  . 

1018. 

1015. 

1016. 

1017. 

6 

1C  26 . 

1 C  2  4  . 

1019. 

10  19. 

1016. 

1009. 

1014. 

1016. 

7 

1 C 26  . 

1 C  2  4  . 

1021. 

1C  19. 

10  17. 

1014. 

1015. 

1016. 

1016.  1016. 

1016. 

8 

1  C2  7  . 

1025  . 

102  1. 

10  19. 

1017. 

1014. 

1014. 

1014. 

1014.  1014. 

1015. 

9 

1028. 

1025. 

1019. 

10  19. 

1016. 

1010. 

1013. 

1013. 

1009.  1013. 

1014. 

1C 

1C29. 

1C2  7  . 

1023  . 

1020. 

1017. 

1014. 

1014. 

1013. 

1012.  1013. 

1014. 

1  1 

1 C  3  l  . 

1028  . 

1023. 

102  1  . 

10  18. 

1014. 

1014. 

1013. 

1012.  1013. 

1014. 

12 

1 C  3  2  . 

1 C 29  . 

1021. 

102  1  . 

1017. 

1C1C. 

1013. 

1012. 

1008.  1013. 

1014. 

13 

1034. 

1C32  . 

1028  . 

1024  . 

1019. 

1015. 

1015. 

1014. 

1013.  1014. 

1015. 

14 

1C35. 

1034  . 

1031. 

1027  . 

1021  . 

1016. 

1015. 

1015. 

1014.  1015. 

1016. 

15 

1  C  36  . 

103  5  . 

1032. 

1029. 

1022. 

1010. 

1015. 

1015. 

1012.  1016. 

1017. 

16 

1032. 

1024. 

1018. 

1018. 

1017. 

1016.  1018. 

1018. 

17 

1028. 

1023. 

1019. 

1019. 

1019. 

1018.  1019. 

1020. 

18 

1025. 

1021 . 

1012. 

10  18. 

1019. 

1015.  1019. 

1020. 

19 

102  5  . 

10  2  3. 

1019. 

1020. 

1020. 

1019.  1020. 

102  1. 
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TABLE  A-  5 


MATRIX  CF  PRESSURE  IN1  OIL  RE  SER VO  I R  » ( PS  I  A ) .  BY  ADIP 


( 1 1  ME  S  TEP  =  10 . CO  DAYS) 


TIME  =  3CC.  CAYS 


J 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

I 

1 

941  . 

9  4  C  . 

938  . 

936. 

934. 

932. 

932. 

932. 

2 

941. 

939  . 

937  . 

93  6. 

933. 

930. 

931. 

932. 

3 

940. 

938  . 

933  . 

933. 

931 . 

924. 

929. 

931. 

A 

940. 

938  . 

9  35  . 

933. 

931. 

928. 

929. 

9  30. 

5 

939. 

937  . 

935  . 

933  . 

930. 

92  8. 

929. 

930. 

6 

939. 

936. 

932. 

932. 

929. 

922. 

927. 

929. 

7 

939. 

937  . 

934. 

9  3  2. 

930. 

927. 

928. 

928. 

929. 

928. 

928. 

8 

940. 

938  . 

935  . 

932. 

930. 

927. 

927. 

927. 

927. 

92  7. 

928. 

9 

941  . 

939  . 

932. 

932. 

929. 

923. 

926. 

926. 

922. 

926. 

92  7. 

1C 

943. 

94  C  . 

936. 

93  3. 

9  31. 

927. 

927. 

926. 

925. 

926. 

927. 

11 

944  . 

942  . 

93  7. 

934. 

931. 

927. 
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TABLE  A-  5 


MATRIX  CF  PRESSURE  IN  OIL  R  E  SE  R  VO  I  R  ,  (  PS  I  A  )  .  BY  ADIP 


(TIME  STEP  =  10*00  DAYS? 


TIME  =  500 . 

CAYS 
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A  5  6 
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TABLE  A-  5 


MATRIX  CF  PRESSURE  IN  OIL  RtSERVG  IR  » ( PS  I  A  )  .  BY  AD  I  P 


( T I  HE  STEP  =  10.00  DAY S ) 


TIME  =  700.  DAYS 


J 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 
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767. 

76  6  . 

764. 

762. 

760. 

758. 

758. 

758. 

2 

766. 

765. 

762. 

76  1 . 

759. 

756. 

757. 

757. 
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766. 

764  . 

759. 

75  9. 

757. 

750. 

755. 

756. 
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765. 

763  . 

761. 

759. 

75  7. 

754. 

755. 

756. 
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765. 

763  . 
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759. 
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754. 
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755. 
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764. 

762  . 
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758  . 
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748. 

753. 

755. 
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765. 

763  . 

7  6C  . 

758. 

756. 

753. 

754. 

7  54. 

755. 

754. 

754. 
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766. 

764  . 

76C. 
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7  53. 
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764  . 
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TABLE  A-  5 


MATRIX  GF  PRESSURE  IN  CIL  RE SE R VO  I R , ( PS  I  A )  .  BY  ADIP 


(TINE  STEP  =  10.00  LAVS) 


TIME  =  1C0C.  DAYS 


J1  2  3  A  5  6  7  8  9  10  11 


I 

1 

636. 

635. 

633. 

63  1. 

629. 

628. 

627. 

627. 

2 

636. 

63  A  . 

632. 

630. 

628. 

626. 

626. 

627. 

3 

635. 

633  . 

628. 

628. 

626. 

619. 

62  A  . 

626. 

A 

635. 

63  3. 

63C. 

628. 

626. 

62  A  . 

625. 

625. 

5 

63 A  . 

632  . 

63C. 
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62  A  . 

625. 
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6  3  A  . 

631. 

6  2  7. 
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6  2  A  . 

617. 

622. 

62  A  . 

7 

63A. 
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62  7. 
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62  A . 
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FABLE  a-  5 


M  AT  R IX  OF  PRESSURE  I  N  GIL  RE  SERVO  I R » ( PS  I  A ) .  BY  AD  I P 


(TIME  STEP  =  10. CO  DAYS) 


TIME  =  1200.  DAYS 


J 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 
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54  7  . 

546  . 

544. 

542. 

540. 

540. 

540. 
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548. 

547  . 
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54  3. 

541. 
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539. 

539. 
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546  . 
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TABLE  A-  6 


MATRIX  OF  PRESSURE  IN  OIL  R E SE K VO  I R  ,  ( PS  I  A ) .  BY  ADEP 

(TIME  STEP  =  20. CO  DAYS) 


TIME  = 

ICO. 

CAYS 

Vi 

1  1 

2 

3 

A 

5 

6 

7  8 

9 

10 

11 

I 

1 

1030. 

1028  . 

1 C  2  7  . 

1 C  2  5  . 

1 0  2  A  . 

1023. 

1023.  1023. 

2 

3 

A 

1  C29 . 
1029. 
1028. 

1028  . 
1026  . 

1 C  2  6  . 

1025. 

1022. 

1 C  2  A  , 

1 C  2  A  . 
1C22. 

1 C  2  3  . 

1022. 

1020. 

1021. 

1020. 

1015. 

1018. 

1021.  1022. 
1019.  1021. 
1019.  1020. 

5 

6 

7 

1028  . 

1 C2  7  . 
1027. 

1026  . 
1C25. 
1026  . 

1  C  2  3  . 

1 C  2  1  . 
1023. 

1  C  2  2  . 
1021. 

1 C  2  1 . 

1020. 
1018. 
10  19. 

1017. 

1012. 

1016. 

1018.  1019. 
1016.  1018. 
1017.  1018. 

1018. 

1018. 

1019. 
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1028. 

1026  . 

1023  . 

1 C  2  1 . 

10  19. 

1016. 

1017.  1017. 

1016. 

1018. 

1018. 

9 

1 C  29  . 

1026  . 

1C2C. 

1C2  1. 

10  18. 

1012. 

1015.  1015. 

1013. 

1016. 

1017. 

10 

1C3C. 

1028  . 

1 0  2  A  . 

1 C  2  2  . 

10  19. 

1016. 

1016.  1016. 

1015. 

1016. 

1017. 

1  1 

1031  . 

1029. 

1 02 A  . 

1022  . 

10  19. 

1016. 

1016.  1016. 

1015. 

1016. 

1017. 

12 

1 C  32  . 

1025  . 

1021  . 

1022. 

10  19. 

1013. 

1015.  1015. 

1012. 

1015. 

1017. 

13 

1033. 

103  1  . 

1 C  2  7  . 

1  02  A  . 

1021  . 

101  7. 
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1017. 

1017. 

1  A 

1 0  3  A  . 
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1017.  1017. 

1016. 
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15 
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17 
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1021.  1020. 

1019. 

1020. 

1021. 

18 
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1020.  1020. 

1016. 
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TABLE  A-  6 


MATRIX  CF  PRESSURE  I M  CIL  R t S t R VC  I R  ,  { PS  I  A ) .  BY  ADEP 


(TIME  STEP  =  20. CO  DA  VS) 


TIME  = 

300. 

CAYS 

J  I 

2 

3  4 

5 

6 

7 

8 

9 

10 

11 

I 


1 

94  1 . 

94C  . 

938. 

936. 

934. 

932. 

932. 

932. 

2 

941. 

939  . 

936. 

935. 

932. 

930. 

930. 

931  . 

3 

940. 

938  . 

933. 

9  3  3. 

9  30. 

924. 

92  8. 

9  30. 

4 

939. 

93  7  . 

935. 

933. 

931. 

928. 

928. 

929. 

5 

938. 

937  . 

934. 

932. 

930. 

927. 

928. 

928. 

fc 

938. 

936. 

931. 

93  1  . 

928. 

921. 

926. 

927. 

7 

938. 

936  . 

933. 

93  1. 

929. 

926. 

926. 

92  7. 

927. 

927. 

927. 

8 

939. 

937  . 

933. 

93  1. 

929. 

926. 

926. 

926. 

925. 

926. 

927. 

9 

940. 

93  7  . 

93  1. 

93  1  . 

928. 

921. 

924. 

924. 

921. 

924. 

926. 

1C 

941. 

9  38. 

934. 

932. 

929. 

926. 

925. 

925. 

924. 

925. 

925. 

1 1 

942. 

939. 

935. 

932. 

929. 

925. 

925. 

924. 

923. 

924. 

925. 

12 

943. 

94 C  . 

931. 

932. 
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921. 

924. 
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920. 

924. 
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CCNTC.  _  TABLE  A-  6 


MATRIX  CF  PRESSURE  IN  OIL  RESERVOIR t (PSI A) .  BY  ADEP 


t  T  I  V E _ S  T EP  =  20.00  DA  V  SJ 


TIME  =  5C0.  CAYS 


J12  3  4  56789  10  ii 


I 
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851. 

849  . 

847  . 

845. 

843. 

84  1 . 

t 

■  —4 

nT 

00 

841  . 
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850. 

848. 

846. 
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839. 
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840. 
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849. 
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842. 

840. 

83  3. 
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839. 
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844  . 

842. 

840. 

8  3  7. 

838. 

839. 
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848  . 
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TABLE  A-  6 


MATRIX  CF  PRESSURE  IN  OIL  R E S E R VO  I R , ( P S I  A ) .  BY  ADEP 


( T  I  ME  ST  EP  =  20.00  DAYS ) 


TIME  =  700.  DAYS 
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TABLE  A-  6 


MATRIX  GF  PRESSURE  IN  OIL  R E SE R VC  I R , ( P S I  A ) .  BY  ADEP 


(TIME  STEP  =  20. CO  CAYS) 


TIME  =  iCOC.  DAYS 
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TABLE  A-  6 


MATR  IX  GF  PRESSURE  IN  OIL  R E SE R VG I R , ( PS  I  A ) .  BY  ADEP 


(TIM E  S TEP  *  20.00  DA Y  S ) 


TIME  =  12C0.  CAYS 
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TABLE  A-  7 


MATRIX  CF  PRESSURE  IN  OIL  RE SE RVO I R , ( PS  I  A ) .  BY  ADIP 
__  _  (TIME  STEP  =  20.00  CAYS) 


T  IME  = 

100. 

CAYS 

J  I 

2 

3 

4  5 

6 

7 

8 

9 

10 

1  1 

I 
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1C29. 

1028  . 

1026. 

1 C  2  A  . 

1022. 
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1020. 

1020. 
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1C2  7  . 

1026  . 
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CCNTC. _  ______  TABLE  A-  7 

MATRIX  GF  PRESSURE  IN  OIL  RE SE R VO  1 R  ,  ( P S I  A ) .  BY  ADIP 

(TIME  STEP  =  PC. 00  DAYS) 


TIME  =  300.  DAYS 
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TABLE  A-  7 


KATE?  IX  GF  PRESSURE  IN  OIL  RE  SE  R  VO  I  R  ,  (  PS  I  A  )  .  BY  ADIP 


(TIME  STEP  =  20.00  DAYS) 


TIME  = 

500. 

CAYS 

J  1 

2 

3  A  5 

6 

7 

8 

9 

10 

II 
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8  5  A  . 

853  . 

851. 

8  A  9  . 

8  A  7 . 

8A5. 

8A5. 
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8  A  9  . 

8  A  8  . 
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CCNTC »  TABLE  A-  7 


MATR  IX  OF 

PRESSURE 

IN  OIL 

RESERVOIR  ,( PSI  A  )  .  BY  AUIP 

(TINE 

STEP  = 

20.00  DAYS) 

TIME  = 

o 

o 

• 

CAYS 

J  I  2 

•3 

A  5 

6 
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10 

11 
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1 

767. 

766  . 

7  6  A  . 

762. 

760. 

758. 

758. 

7  58. 

2 

766. 

765  . 

762. 

76  1  . 

759. 

756. 

75  7. 

757. 

3 

766. 

76 A  . 

759. 

759. 

757. 

750. 

75  5. 

756. 

A 

765. 

763  . 

761. 

759. 

757. 

7  5  A  . 

755. 

756. 

5 

765. 

763  . 

7  6C  . 

759. 

756. 

75  A . 

755. 

755. 

fc 

7  6  A  . 

762  . 

757. 

75  8. 

755. 

7  A  8  . 

753. 

755. 

7 

765. 

763  . 

760. 

758. 

756. 

753. 

75A. 

75A  . 

755. 

75-A. 

754. 

8 

766. 

76A  . 

760. 

758. 

7  56. 

753. 

753. 

753. 

753. 

753. 

753. 

9 

767. 

7  6  A  . 

758  . 

758. 

755. 

7A9  . 

752. 

752. 

7A8  . 

752. 

753. 

10 

768. 

766  . 

762. 

759. 

7  56. 

753. 

753. 

752. 

751  . 

752. 

753. 

1  1 

770. 

767  . 

763. 

760. 

7  57. 

753. 

753. 

752. 

751. 

752. 

752. 

12 

772. 

768  . 

7  6  C  . 

760. 

756. 

7A9  . 

752. 

751. 

7A7. 

751  . 

7  52. 

13 

7  73  . 

77  1  . 

76  7  . 

763. 

758. 

75  A  . 

753. 

753. 

751. 

753. 

754. 

1A 

775. 

773  . 

770. 

766. 

760. 

755. 

7  5  A . 

753. 

752. 

7  5A. 

754. 

15 

7  75. 

7  7  A  . 

771. 

768. 

761. 

7  A  9  . 

75A. 

753. 

750. 

754. 

755. 

16 

771  . 

763. 
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756. 

7  56. 

755. 
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17 

76  7  . 

762. 

7  57. 

757. 
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757. 
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18 

76  A . 
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756. 

757. 

753. 

757. 

7  58. 
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7  58. 

758. 
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758. 

759. 
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TABLE  A-  7 


NATRIX  GF  PRESSURE  IN  OIL  RE SE RVO I R  ,  ( P S I  A ) .  BY  ADIP 


(TIME  STEP  =  20. CO  CAYS) 


TIME  =  ICOO.  CAYS 


J 

1 

2 

3 

A 

5 

6 

7 

8 

9 

10 

11 

I 

1 

636. 

635  . 

633. 

631. 

629. 

627. 

627. 

627. 

2 

636. 

63 A  . 

631. 

630. 

628. 

625. 

626. 

62  7. 
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635. 

63  3  . 

628. 

628. 

626. 

619. 

62  A  . 

626. 
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63 A  • 

63  3  . 

63C. 

628. 
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62  A  . 

62  A  . 
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63A  . 
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626. 
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62  A  . 

625. 
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633. 

63  1 . 

627. 
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62  A . 

617. 

622. 
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63A  . 
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629. 
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623. 
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629. 
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62  3. 

623. 

622. 

621. 

622. 

623. 

1 A 
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6  3  5. 
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62  A  . 
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623. 
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TABLE  A-  7 


MATRIX  GF  PRESSURE  IN  OIL  RESERVOIR t ( PSi A) .  BY  AOIP 


(TINE  STEP  =  20. CO  CAYS) 


riME  =  1 200.  DAYS 


J 

I 

2 

■x 

■J 

4 

544. 

5 

6 

7 

8 

9 

10 

11 
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L 

549. 

54  7  . 

546  . 

542. 

540. 

540. 

540. 

2 

548. 

54  7. 

54  4. 

543. 

54  1. 

538. 

539. 

539. 

3 

548. 

545  . 

54  1. 

54  1 . 

539. 

532. 

537. 

538. 

4 

547. 

545  . 

54  3. 

54  I . 

539. 

536. 

537. 

538. 

5 

547. 

54  5  . 

542. 

54  1  . 

538. 

536. 
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537. 

6 

546. 

54  4  . 

539. 
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537. 

530. 

535. 

537. 

7 

547  . 

54  5  . 

542. 

540. 

538. 

535. 

536. 
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537. 

536. 

536. 

8 

548. 

546. 

542. 

540. 

538. 

535. 
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535. 

535. 

535. 

5 

549. 

546  . 

540. 

540. 

5  37. 

531. 
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534. 
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IC 

550. 

54  8. 
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54  I  . 
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53  5. 

1 1 
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TABLE  A- 8 

PRODUCT ION 

PATTERN  OF  OIL  RESERVOIR 

LOCATION 

OF 

WELL  PRODUCTION 

I  T 

J 

Q  (  I  *  J  )  S.T.B./DAY 

I 

l 

50. 

15 

1 

50. 

3 

3 

75. 

6 

3 

75. 

9 

3 

75. 

12 

3 

75. 

15 

A 

50. 

19 
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50. 

6 

125. 

6 

6 

125. 
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6 

125. 

12 
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125. 

15 
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125. 
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50. 
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TABLE  A- 9 


MATRIX  Qf  PRESSURE  IK  CIL  R t SE R VC  I R , ( PS  I  A )  .  BY  AubP 
_ WITH  EIGHT  WELLS  AT  CCRKERS _ 


TIME  =  ICO.  CAYS 


J  I  2  3  4 . . 5  6  7  8  9  10  L  L 

I 


1008. 

1 C  1C .  1G1C.  1 C  C  9  . 

1007. 

ICO  5. 

1003. 

998. 

2 

10  11. 

1011.  1 C  C  9 .  1CC9. 

1007. 

1  CO  A  . 

1003. 

1002. 

3 

1013. 

1011.  1 C  0  7 .  1008. 

1005. 

999. 

1002. 

1003. 

A 

10  15. 

1 C 1 3 .  1G1C.  1CC9. 

1006. 

1003. 

1003. 

1003. 

5 

1015. 

1013.  1C1C.  1 C  C  9  . 

1006. 

1  CC  3  . 

1003. 

1002. 

6 

10  15. 

1013.  1  CC5.  1 C  C  8 . 

1005. 

998. 

1001. 

999. 

 T 

1017. 

1 C 1 5 ♦  1011.  1C  09. 

_  MI , 

1003. 

1002. 

999. 

999.  999. 

993. 
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1018. 

1016.  1 G  1  2 .  1010. 

1007. 

1  C  0  A  . 

1003. 

1002  . 

1001.  1001. 

999. 

9 

1019. 

1 C 1 6 .  1C1C.  1C10. 

1007. 

1001 . 

1003. 
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999.  1001. 

100  1. 

10 

1020  . 

lcie.  ici3.  ic 1 1 . 

1008. 

1005. 

1  OOA  . 

1003. 

1002.  1003. 

1003. 

1  1 

1 C 20  . 

1018.  1 0  1  A .  1C  1  1 . 

1008. 

1005. 

1005. 

1  OOA  . 

1002.  1003. 

100A. 

12 

1  C 20  • 

1 C 1 7  -  IC1C.  1C10. 

1007. 

1CC1. 

100  A  . 

1003. 

1000.  1003. 

100A. 

13 

1019. 

1017.  1 0  1 A  .  1012. 

1009. 

1  CO  5  . 

1005. 

1  OOA  . 

1003.  1 OOA . 

1005. 

1 A 

1016. 

1016.  1013.  1  C  1  1  . 

1008. 

1 OOA  . 

1005. 

1005. 

1003.  1005. 

1005. 

15 

1 C  0  9  . 

1012.  1CC5.  1 C  C  7  . 

1006. 

998. 

1 00  A  . 

1  OOA . 

1001.  100A. 

1005. 

It 

1  C  C  9  . 

1009. 

1005. 

1006. 

1006. 

1 00 A .  1005. 

1005. 

17 

1  C  C  9  . 

10  08. 

1  C  0  5  . 

1006. 

1006. 

1 00 A .  1 OOA . 

1004. 

18 

1  C  C  5  . 

100A. 

997. 

1005. 

1005. 

1000.  1002. 

1001. 

19 

1CC0- 

1 0  0  A  . 

1  CO  A  . 

1006. 

1006. 

L  003 .  1001. 

996. 
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TABLE  A- 9 


MATRIX  CF  PRESSURE  IN  OIL  R L SERVC I R , ( PS  I  A ) .  BY  ADEP 
_ WITH  EIGHT  WELLS  AT  CORNERS 


TIME  =  300.  DAYS 


J 

l 

2 

3 

A 

5 

6 

7 

8 

9 

10 

11 

I 

i 

8  9  A  . 

89 €  . 

896  . 

8  9A. 

89  1 . 

888. 

885. 

879. 

2 

898  . 

897  . 

895. 

8  9  A  . 

89  1 . 

88  7. 

886. 

884. 

3 

9CC  . 

898  . 

893. 

893. 

889. 

882. 

885. 

885. 

A 

901  . 

899  . 

896. 

89  3. 

890. 

887. 

886. 

886. 

5 

901  . 

899  . 

896. 

89  A. 

890. 

886. 

885. 

885. 

fc 

90  1  . 

899  . 

893. 

893. 

889. 

880. 

883. 

881  . 

7 

902. 

9  C  C  . 

896. 

8  9  A  . 

891. 

886. 

885. 

881  . 

881. 

880. 

873. 

8 

903. 

9C  1  . 

897. 

8  9  A  . 

891 . 

887. 

886. 

884. 

883. 

882. 

879. 

9 

905. 

90  1  . 

895. 

8  9  A  . 

891 . 

883. 

885. 

884. 

880. 

882. 

882. 

1C 

905. 

9  L  3  . 

898. 

895. 

892. 

888. 

88  7. 

885. 

883. 

884. 

884. 

1  1 

9C5. 

9C3. 

898. 

895. 

891. 

888. 

88  7. 

885. 

884. 

884. 

885. 

12 

90 A  . 

902  . 

893. 

8  9  A  . 

890. 

88  3. 

886. 

885. 

880. 

884. 

885. 

13 

903  . 

90  1  . 

897. 

895. 

89  1. 

887. 

887. 

886. 

885. 

886. 

887  . 

1 A 

9C0  . 

899  . 

897  . 

8  9  A  . 

891  . 

88  7. 

88  7  . 

886. 

885. 

887. 

887. 

15 

893. 

896. 

89  1 . 

890. 

889. 

880. 

886. 

886. 

883. 

886. 

888. 

16 

89  l . 

89  1. 

887. 

888. 

888. 

887. 

887. 

888. 

17 

892. 

890. 

887. 

88  8. 

888. 

887. 

887. 

887. 

18 

887. 

886  . 

879. 

887. 

887. 

883. 

8  8  5. 

884. 

19 

88  1. 

885. 

885. 

888. 

888. 

886. 

884. 

880. 
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CCN T  C  .  TABLE  A- 9 


MATRIX  Q£  PRESSURE  IN  GIL  RESERVOIR  « ( PSIA) .  BY  ADEP 
_ WITH  EIGHT  WELLS  AT  CORNERS _ 


TIME  =  5C0.  CAYS 


J  I _  2  3  A  5  6  7  8  910L1 

I 

1  777  .  77  9 «  778.  7  77.  7  74.  771.  76  7. _ 762. _ 

2  701.  78 C .  770.  7  76.  773.  76  9.  768.  766. 

3  782  .  78 C  .  775.  775.  772.  76A.  767.  768. 

A  783.  781.  778.  776.  773.  769.  769.  768. 

5  7  8 A .  781.  778.  776.  7  73.  769.  768.  767. 

6  78 A .  761.  776.  775.  772.  763.  766.  76A. 

7  785.  782  .  779.  776. _ 773.  769. _ 767.  76A .  764.  763.  755. 

8  786.  783.  779.  777.  773.  770.  768.  766.  765.  76A.  762. 

9  787.  78A.  777.  776.  773.  766.  768.  766.  762.  76A.  76A. 

1C  766.  78  5  .  7  8  C .  777.  77A.  77C.  769.  768.  766.  766.  766. 

11  78  7  .  785.  7  8  C .  777.  7  7A.  770.  76  5.  768.  766.  766.  76  7. 

12  787.  78  A  .  776.  7  76.  772.  765.  768.  767.  763.  766.  766. 

13  _  785.  78 A . _ 780.  777.  773.  769.  769.  768.  767.  768.  769. 

1A  782.  782.  779.  776.  773.  769.  769.  769.  768.  769.  769. 

15  775.  778.  773.  772.  771.  762.  768.  768.  765.  768.  770. 

It  _  773.  773.  769.  770.  770.  769.  769.  770. 

17  7  7  A .  772.  7  69.  770.  7  70.  769.  769.  769. 

18  769.  768.  761.  769.  769.  765.  767.  767. 

19  _ 76 A .  768.  _  767.  7  70.  7  70.  768.  76  7.  76  2. 
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TABLE  A— 9 


MATRIX  CUE  PRESSURE  IN  OIL  R  E  S  E  R  VG  I R  ,  (  P  S  I  A  )  .  BY  AUEP 


MTH. 


AT  CORNERS 


TIME  =  700.  CAYS 


J  3L_  2  3  4  5  6  7  8  9  10  il 

I 


1 

659  . 

66  1  . 

661, 

.  6  59, 

6  56. 

653. 

650. 

6AA  . 

2 

663. 

662  . 

6  6  C  . 

658. 

65  5. 

652. 

650. 

6A9. 

3 

6  6  A  . 

662  . 

658. 

657. 

6  5  A  . 

6  A  7 . 

650. 

650. 

4 

665. 

663  . 

6  6  C  . 

658  . 

655. 

651  . 

651. 

651. 

5 

666  . 

66  A  . 

66  1 . 

658. 

655. 

651. 

650. 

6A9  • 

6 

6  66. 

663  . 

658. 

658. 

65A. 

6  A  5  . 

6A8. 

6A6  • 

7 

667. 

665  . 

_  6  6_1  , 

659. 

655. 

651  . 

6A9. 

6A6. 

6A6  • 

6A5 . 

636. 

8 

668. 

665. 

662. 

659. 

656. 

652. 

650. 

6A9. 

6A7  • 

6A6. 

644. 

9 

669. 

666. 

659. 

658. 

655. 

6A8. 

650. 

6A9. 

6  AA  . 

6A7. 

64  7. 

IC 

670. 

66  7  . 

662. 

659. 

656. 

652. 

651 . 

650. 

6A8. 

648. 

648. 

1 1 

669. 

667  . 

662. 

659. 

656. 

652. 

651. 

650. 

6A8  . 

649. 

649. 

12 

669. 

6  6  6  . 

658. 

658. 

655. 

6A8. 

650. 

6A9. 

6  A  5  . 

649  . 

650. 

13 

667. 

6  6  6  . 

662  . 

659. 

655. 

652. 

651. 

650. 

6A9  • 

650. 

651. 

1  A 

6  6  A  . 

6  6  A  . 

661. 

658. 

655. 

651. 

651. 

651  . 

650. 

651. 

652. 

15 

657. 

660  . 

656. 

65  5  . 

653. 

6  A  5  . 

650. 

650. 

6A7. 

651. 

652. 

16 

656. 

655. 

651  . 

652. 

652. 

651. 

652. 

652. 

17 

656. 

6  5  A  . 

651. 

653. 

653. 

651. 

651. 

651. 

18 

65  1  . 

650. 

6  A  A  • 

651. 

652. 

647. 

650. 

649. 
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TABLE  A- 9 


MATRIX  OF  PRESSURE  IN  OIL  RESERVOIR  t ( PSI A) .  BY  ADEP 
_ VilTH  EIGHT  WELLS  AT  CORNERS _ 


TIME  =  9CC •  CAYS 


JI  2  3  4  5  6  7  8  91011 


I 

1 

5A1. 

5A  3  . 

5  A  3  . 

5  A  1  . 

538. 

535. 

532. 

527. 

2 

5  A  5 . 

5  A  A  . 

5A2. 

5  A  0 . 

538. 

53  A . 

533. 

531  . 

3 

5 A6  • 

5A  A  . 

5AC. 

5  A  0  . 

536. 

529. 

532. 

532. 

A 

5  A  7  . 

5  A  5  . 

5A2  . 

5A0  . 

537. 

5  3  A . 

53  3. 

533. 

5 

5A8. 

5  A  c  . 

5  A  3 . 

5  A  0  . 

537. 

533. 

532. 

532  . 
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5  A  8  . 

5  A  5  . 

5  AC  . 

5  A  0 . 

5  36. 

528. 

530. 

528. 

.  7 

5A9  . 

5A7. 

5  A  3  . 

5  A  1 . 

537. 

533. 

532. 

528. 

528. 

527. 

520. 
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5  A  7  . 

5  A  A  . 

5A  1. 

538. 

53  A  . 

532. 

531. 

530. 

528. 

526. 
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551. 

5  A  3  . 

5A  1. 

5  A  1 . 

537. 

530. 

532. 

531  . 

526. 

529. 

529. 

1 C 

552  . 

5  A  5  . 

5  A  A  . 

5A  1. 

538. 

535. 

533. 

532. 

530. 

530. 

530. 

1  1 

551 . 

5A5  . 

5  A  A  . 

5  A  1 . 

538. 

53  A . 

533. 

532. 

530. 

531. 

531  . 

1  2 

551  . 

5  a  e . 

5AC  . 

5  A  0 . 
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5  32. 

531  . 
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531. 

532. 

13 
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5  3  A  . 
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531  . 
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1 A 
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5  A  3  . 
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5  3  A  . 

15 
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5  3  A  . 
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53A  . 
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5  3  A  . 

5  3  A  . 

17 
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535. 

535. 
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53A. 

533. 

18 
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53A. 

529. 
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531. 
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532. 

53  A . 

535. 
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TABLE  A- 10 


MATERIAL  BALANCE  OF  ADEP  SOLUTION  ; 
OIL  RESERVOIR  WITH  EIGHT  CORNER  WELLS 


At  = 


33  * 


At 

max . 


Actual  Cumulative  Production 
Estimated  Cumulative  Production 

1. 0008 
1.0181 
1 o  0082 

1 o  0 0 25 
1  0  0008 
1.0001 
0.9998 
0.9996 
0  o  9996 
0.9997 


0  o  9997 


APPENDIX  B 


GAS  RESERVOIR 


P,y,  Z  Interrelations 

The  following  curve-fitted  emperical  relations 
satisfactorily  represent  the  gas  properties s 

P  =  0o  800  (^-)+  8O0OO;  P  is  in  psia 

LA 

~  =  74  o  74  (|)+  6815;  y  is  in  cp 

y  A  ^ 

The  reservoir  temperature  was  assumed  constant  at  80°F 
and  the  gas  saturation  was  assumed  to  be  unity  throughout 
the  reservoir 0 

At  for  the  FDE  Method 
max  

If  the  Forward  Difference  Explicit  Method  were 
used  to  solve  equation  (V-4) ,  the  maximum  time  step 
consistent  with  stability  is  given[5],for  the  case  of 
uniform  properties,  by: 

1  Ax2(f>h  Sq  ,y 

Atmax  -  4  K  h  P 

y 


For  a  heterogeneous  medium.  At  is  estimated  by 
^  max  2 

employing  the  most  severe  field  conditions,  that  is^ 


(li/P)  .  and  (d>h/K  h)  .  0  This  occurs,  in  this  case, 

'  mm  /  g  min  '  ' 

at  i  =  11,  j  =  11. 


Then  At  =6.8  days. 

f  max  J 


TAbLE  B-  1 


PHI.*H  MATRIX  (FT)  -  GAS  RESERVOIR 


J 

I 

1 

1 

2 

3 

J 

A 

5 

6 

7 

8 

9 

10 

11 

1  .  A  3 

0.97 

0.  BO 

C  .  73 

0.75 

0.58 

0.51 

0  .  A  3 

2 

1 .  A  3 

C  .  9  5 

0.8  8 

C  .  8  1 

0.80 

0.80 

0.58 

0 .  A  7 

3 

1.82 

1.10 

0.87 

C.9C 

0.83 

0.7  3 

0.62 

0.52 

A 

1.65 

0.99 

1  .02 

C  .  87 

1.00 

0.  72 

0.67 

0.60 

5 

1.30 

1  .  C  9 

C  .96 

C  .  8  3 

0.77 

0.7A 

0.  7  A 

0.7  1 

6 

1.00 

0.95 

C.9C 

0.8  2 

0.76 

0.73 

0.68 

0.67 

7 

C  .  98 

C  .  9  3 

0.88 

C  .  8  A 

1.03 

0.75 

0.67 

0.  6  A 

0.60 

0.A2 

0.28 

8 

1  .  A  3 

1 .  1C 

0.97 

C  .  82 

1.20 

0. 8A 

0.83 

0.73 

0.72 

0.  Afo 

0. 32 

9 

1.65 

1.  A2 

1  .A2 

1.01 

1.25 

1.02 

0.  77 

0.66 

0.67 

0.53 

0.  30 

IC 

1.66 

1 .  A  1 

C.8C 

1 .09 

1  .  16 

1.06 

0.68 

0.68 

0.62 

0.50 

0.30 

1  I 

1.33 

1.51 

1  .03 

1.02 

1 .10 

0.80 

0.80 

0.60 

0.  A5 

0.37 

0.27 

12 

1.65 

1.28 

1  .10 

C  .  8  9 

1  .02 

0. 8A 

0. 8A 

0.58 

0.37 

0.30 

0.26 

13 

1.57 

1.32 

1.25 

1 . 2  A 

0.88 

0.77 

0.  77 

0.60 

0.  AO 

0.  AO 

G.A1 

1  A 

1.62 

1.25 

1.22 

1.  15 

1  .05 

0.79 

0.73 

0.63 

0.52 

0.55 

u  .  52 

15 

0.73 

0.90 

C  .97 

1  .AO 

1.00 

1.02 

0.79 

0.71 

0.61 

0.68 

0.58 

16 

l .  10 

0.91 

1.03 

1.20 

0.92 

0.76 

0.67 

0.61 

17 

C  .  76 

0.88 

1.12 

1.27 

1.18 

1.20 

0.71 

0. 6 A 

18 

C.  77 

1.20 

1.35 

1.31 

1.27 

1.22 

0.81 
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TABLE  B-  2 


K*H  MATRIX  ( OARCY-FT)  -  GAS  RESERVOIR 


J 

I 

I 

1 

2 

A 

5 

6 

7 

8 

9 

10 

1 1 

C.  17 

0.2  i 

0.17 

C  .16 

0.19 

0.  15 

0.  16 

0. 1  A 

2 

C.  18 

C  .  2  l 

C.  19 

C.  18 

0.19 

0.20 

0.  16 

0.15 

3 

C .  23 

o 

» 

fV) 

-t' 

0.19 

C.2C 

0. 19 

0.  17 

0.  15 

0.  1A 

A 

C.2C 

C  .  2  2 

0.2  3 

0.20 

0.23 

0.  17 

0.16 

0.15 

5 

C.  16 

0.25 

0.21 

C.  18 

0.17 

0.  17 

0.17 

0.17 

6 

0.21 

C  .  2  2 

C.20 

C.  18 

0.17 

0.16 

0.  15 

0.15 

7 

0.19 

C  .  2  0 

0.20 

C  .  19 

0.23 

0.  1  7 

0.  15 

0.  15 

0.  1A 

0.12 

0.  10 

8 

C.  17 

0.  I  7 

0.21 

C.  18 

0.27 

0.  19 

0.  19 

0.  16 

0.  17 

0.13 

0.  1 1 

9 

0.18 

0.16 

0.17 

C  .  2  2 

0.25 

0. 18 

0.  18 

0.15 

0.16 

0. 15 

0.  13 

1C 

0.  18 

0.16 

0.17 

C .  2  1 

0.22 

0.21 

0.17 

0.18 

0.16 

0.16 

0. 13 

1  1 

0. 1A 

0.17 

0 .13 

C .  2  3 

0.23 

0.24 

0.22 

0.19 

0.  16 

0. 1A 

0.  13 

12 

C.  17 
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0.12 
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0.18 
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0.12 
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TABLE  B-3 


PRODUCTION  PATTERN  OF  GAS  RESERVOIR 


Location  of 
Well 

Vol.  Rate 

(V  J.  . 

$  1 , D 

Location  of 
Well 

Vol.  Rate 

'Vi.j 

(i/ j) 

mmscf /Day 

(i,  j  ) 

mmscf /Day 

2,2 

0  .  8 

8,6 

0.8 

4,2 

0.9 

10,6 

1.0 

6,2 

0.8 

12,6 

0.8 

8,2 

1.0 

14,6 

0.8 

(N 

o 

1 — 1 

1.2 

16,6 

1.0 

12,2 

1.1 

18,6 

1.2 

14,2 

1.0 

8,8 

0.7 

2,4 

0.6 

10,8 

0.7 

4,4 

0.8 

12,8 

0.6 

6,4 

0.7 
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i — 1 

0.9 
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0.4 

00 

1 — 1 
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0.5 

2,6 
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4,6 
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o 

1 — 1 

00 

1 — 1 
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MATRIX  OF  PRESSURE  IN  GAS  RESERVOIR  , ( PSI A) .  BY  ADEP 


U I  ME  STEP  =  30.  DAYS) 


TIME  =  120.  0 A Y  S 
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3 

4 

5 

6 

7 

8 

9 

10 

1 1 

I 

1 
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977. 
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973. 

974. 

969. 
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987. 

2 

982. 

95  1. 

967. 

949. 

962. 

941. 

973. 

985. 

3 

984. 

96  7. 

969. 

96  1  . 

965. 

958. 

975. 

985. 

4 

979. 

945  . 

96  1  . 

938. 

956. 

930. 

970. 

984. 

5 

981. 

964. 

967. 

958. 

962. 

956. 

974. 

984. 

6 

974. 

945. 

960. 

939. 

9  56. 

932. 

969. 

980. 

7 

978. 

962. 

966. 

958. 

964. 

956. 

968. 

969. 

97  1. 

967. 

971. 

8 

977. 

985. 

959. 

937. 

959. 

935. 

956. 

9  36. 

959. 

939. 

962. 

9 

984. 

965. 

970. 

958. 

965. 

956. 

961. 

953. 

961. 

955. 

962. 

10 

978. 

928. 

955. 

932. 

955. 

929. 

950. 

930. 

951  . 

936. 

956. 

1  1 

984. 

964  . 

968. 

955. 

962. 

951  . 

957. 

949. 

954. 

950. 

958. 

12 

979. 

92  7  . 

962. 

926. 

956. 

933. 

952. 

933. 

94  8. 

934. 

957. 

13 

986. 

968  . 
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953. 

959. 

951. 
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963. 
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980. 
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96  6. 
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960. 
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9  53. 

9  33. 

952. 

939. 

96  3. 

I  5 

987. 

976  . 
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969. 

974. 
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951  . 
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96  7. 
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94  5. 

9  64. 

915. 

95  7. 

918. 

951. 
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962. 
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960. 

969. 

957. 

97  C. 
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94  2. 
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965. 
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TABLE  B-  4 


MATRIX  OF  PRESSURE  IN  GAS  RE  SERVO  1 R » ( PS  I  A ) .  BY  ADEP 


i I IME  STE P  =  30.  D A  Y  S } 


TIME  =  360.  DAYS 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 
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940. 

922. 

9  17. 

907. 

907. 

903. 

917. 

926. 
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929. 

892. 

902. 

878  . 

892. 

871. 

908. 

92  3. 
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929. 

905. 

901. 

688. 

891 . 

886. 

909. 

922. 
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919. 

878. 

888. 

860. 

878. 

852. 

901. 

919. 

5 

916. 

895. 

892. 

879. 

883. 

878. 

903. 

917. 

6 

906. 

87  1  . 

86  3. 

855. 

873. 
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892. 

907. 

7 

909. 

6  8  6  . 

887. 

8  75. 

879. 
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885. 

888  * 
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882. 

686. 

8 

909. 

856. 
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87  U 

845. 

868. 

847. 

871  . 
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874. 
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919. 

89  1  . 
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861. 

870. 

8  63. 

871. 
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912. 

845  . 
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840. 
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831  . 

85  6. 
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863. 

l  1 

919. 

885. 
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865. 
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851  . 

858. 
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8  34. 

862. 
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13 
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857. 
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856. 
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843. 
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862. 
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860. 
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17 
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TABLE  B-  4 


MATRIX  OF  PRESSURE  IN  GAS  R E SE R VG I R , ( P S  I  A  )  .  BY  AL)EP 


(TIME  STEP  =  30.  DAYS) 


TIME  =  600.  DAYS 


J 

l 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

I 

1 

881  . 

861. 

8  54. 

84  1  . 

840. 

835. 

850. 

860. 

2 

869. 

828  . 

837. 

8C9. 

823. 

799. 

839. 

856. 

3 

867. 

84  1  . 

834. 

819. 

820. 

814. 

839. 

854. 

4 

834. 

808. 

819. 

786. 

805. 

776. 

828. 

848. 

5 

849. 

824  . 

820. 

804. 

807. 

801  . 

828. 

843. 

6 

836. 

797  . 

808. 

776. 

794. 

766. 

b  1 4. 

829. 

7 

838. 

813. 

810. 

7  95. 

798. 

788. 

803. 

805. 

803. 

795. 

799. 

8 

837. 

78C . 

799. 

765. 

787. 

757. 

782. 

757. 

783. 

758. 

785. 

9 

848. 

• 

in 

CO 

809. 

787  . 

790. 

776. 

781  . 

771 . 

780. 

772. 

781. 

10 

840. 

769. 

790. 

752. 

775. 

738. 

76  3. 

736. 

764. 

745. 

771. 

1  1 

849. 

813. 

805  . 

779. 

781 . 

764. 

769. 

758. 

765. 

761 . 

77  2. 

12 

847. 

773  . 

801. 

745. 

7  73. 

741. 

762. 

737. 

757. 

740. 

770. 

13 

860. 

828  . 

824. 

792  . 

788. 

76  7. 

771. 

760. 

76  7. 

764. 

779. 

14 

856. 

79  1 . 

8  15. 

748. 

7  83. 

738. 

765. 

7  39 . 

764. 

749. 

78  1. 

1  5 

865. 

84  A  . 

8  38. 

810. 

806. 

776. 

779. 

7  64. 

7  75. 

773. 

790. 

16 

7  79. 

797. 

72  7. 

777. 

728. 

773. 

746. 

791. 

17 

812. 

820. 

793. 

807. 

791. 

804  . 

792. 

809. 

18 

795. 

822. 

757. 

810. 

766. 

811. 

7  75. 

818. 
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848. 

837. 
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833. 

838. 

•  t  1  j  ■  •  t  ;  ■.  /'  1  .  ’  .  i 


(  Y  .  ( 


'  .  i'.)d 


i  I 

01 

9 

Y 

. 

. 

.  <  ■ 

.  ■  5  • 

. 

A  t-  Y 

.  t  ■' 

. 

.  I 

.  •  A  ’ 

. 

.  at  Y 

.  ,  A. 

• 

•  ► 

•  o  Y 

•>  vY 

. 

• 

.  ' 

. 

.  •  Y 

.  85  Y 

.  \ 

-  \ 

•  S.  8  Y 

.NY 

i  by 

.  V  Y  \ 

.  d  Y 

.in 

.  .  , 

.dY  N 

:  |  . 

•  5ay 

.  6  Y 

.  ol  Y 

.  \ 

.8E  Y 

s 

.ii\ 

.  6Y 

. 

.t  dY 

.  Aa\ 

Y  Y 

.JAY 

• 

.U\ 

.  Y 

.  .  • 

»  YY 

- 

.  Y  A  Y 

.  dY 

.  i  Y\ 

.\  aN 

•  ^  f  \ 

«  A  ^ 

Ai  \ 

.  V  C  i 

.  \  Y 

.  £  Y  Y 

.  “  \  V 

•  A  d  Y 

.  V  \  \ 

.  Y  Y 

1  ^  \ 

.cn 

.  iSY 

.  1  i 

.  Y  Y  V 

.  •  . 

.  I  PY 

.  \ 

«  • 

•  lib 

. 

•  0  1  d 

.  Y  a  y 

. 

-  r  •  .  . 

.  Y  { 

. 

.  . 

-■  it  ■  IT) 


-  [  ! 


*  €  S  It 

1 


*  i  A  i 

. 

•  I  68 

i 

.  PDb 

.  Y  f , 

•  a  (  y 

.  i 

• 

.  A 

.  Y 

e 

508 

•  C  7  1 

A  1  i 

•  108 

.  Add 

A 

.  A08 

•  058 

. 

.  v 

5 

A *  Y 

•  a  y  \ 

.  io  a 

.  Y  \ 

. 

a 

aPY 

.  C  V  Y 

.  i 

.El.' 

• 

Y 

[  . 

.  a  a  v 

. « ■ 

.  MY 

.  Y  i  b 

0V  Y 

.  Y  •<  V 

.  ) 

. 

•  0  A8 

9 

a  y  v 

. 

. 

.  s  , 

.  0 AS 

>  I 

I  8  Y 

.  •  Y  Y 

.508 

.  PA8 

1 1 

£  Y  Y 

• 

•  E  Y  Y 

.  y  a  a 

51 

b  Y 

.  i  V 

.  V 

.  . 

.  0d8 

1 1 

£  8  Y 

•  AY 

.  [ 

.  I  PY 

•  658 

A] 

608 

.  1 

. 

.  A  Ad 

.  add 

5  1 

Yi  N 

.  9  Y  \ 

d  J 

.  l-  I  .< 

Y  i 

.  c  a  y 

8  i 

.  a 

PI 

CCNTC  * 

TABLE 

B-  4 

MATRIX 

OF  PRE 

S  S  U  R  E 

IN  GA 

S  RESERVOIR 

, ( PSI A) 

.  BY 

ADEP 

(TIME 

:  STEP 

=  30 

.  DAYS) 

TIME  = 

960. 

DAYS 

J 

1 

2 

3 

A 

5 

6 

7 

8 

9 

10 

1 1 

I 

1 

789. 

765. 

7  56. 

7  A  1  . 

738. 

731. 

74  7. 

758. 

2 

7  7  A  . 

727  . 

736. 

70  A  . 

718. 

690. 

735. 

7  53. 

3 

771. 

7AC  . 

732. 

713. 

7  1A. 

706. 

73  3. 

749. 

4 

755. 

702  . 

713. 

67A. 

694. 

659. 

719. 

742. 

5 

7A7. 

7  18. 

713. 

693. 

695. 

687. 

716. 

7  33. 

6 

730. 

685  . 

696. 

65  7. 

677. 

6A2  . 

697. 

715. 

7 

7  30, 

702  . 

697. 

6  77. 

679. 

666  . 

682. 

6  83. 

677. 

666  . 

670. 

8 

728. 

66  1  . 

682. 

6  A  0  . 

6  64. 

626. 

655. 

623. 

653. 

622. 

654. 

9 

7A0. 

70  1  . 

693. 

664. 

667. 

648. 

652. 

639. 

649. 

639. 

649. 

10 

731. 

6  A  7  . 

6  70. 

621. 

648. 

601  . 

630. 

596. 

628. 

606. 

6  3b. 

11 

7A1. 

699. 

687. 

654  . 

6  54. 

632. 

636  • 

623. 

630. 

624. 

638. 

12 

7  A 1  • 

653. 

683. 

612. 

644  . 
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628. 
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599. 
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756. 

7  18. 
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1 A 
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15 
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16 
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FABLE  B-  4 


MATR  IX 

GF  PRESSURE 

IN  GA 

S  RESERVOIR, 

( PSI A) 

.  BY 

ADEP 

(TIME  STEP 

=  30 

.  DAYS) 

TIME  = 

1200. 

DAYS 

J 

L 

2 

3 

4 

5 

6 

7 

8 

9 

10 

LI 

I 

1 

726. 

7CC  . 

690. 

673. 

669. 

661. 

679. 

691  . 

2 

710. 

658. 

668. 

632. 

64  7. 

615. 

665. 

685. 

3 

706. 

672. 

663. 

642. 

643. 

633. 

663. 

680. 

4 

688  . 

629. 

641. 

597. 

620. 

580. 

64  l  • 

671. 

5 

678. 

6  4  7. 

64  1. 

618. 

620. 

611. 

64  3. 

661  . 

6 

659. 

609. 

621. 

577. 

599. 

559. 

621. 

640. 

7 

659. 

627  . 

621. 

599. 

601. 

586. 

603. 

603. 

596. 

582. 

587. 

8 

656. 

580  . 

604. 

556. 

583. 

539. 

5  72. 

534. 

567. 

531. 

568. 

9 

6  68. 

625. 

6  16. 

583. 

585. 

564. 

568. 

552. 

563. 

551. 

563. 

10 

658. 

564. 

589. 

534. 

563. 

508. 

542. 

502. 

540. 

512. 

548. 

1  1 

669. 

623. 

609. 

57  1. 

5  71. 

545. 

550. 

533. 

542. 

535. 

550. 

12 

669. 

571. 

604. 

523. 

559. 

512. 

540. 

503. 

530. 

505. 

547. 

13 

686. 

643  . 

634. 

589. 

580. 

548. 

552. 

536. 

544. 

541. 

561. 

14 

681  . 

597. 

625. 

530. 

574. 

508. 

545. 

507. 

541. 

520. 

565  . 

15 

693. 

665  . 

654. 

614. 

605. 

563. 

565. 

544. 

559. 

555. 

578. 

16 

573. 

596. 

497. 

565. 

496. 

558. 

519. 

582. 

1  7 

618. 

627. 

592. 

609. 

586. 

602. 

585. 

608. 

18 

598. 

6  34. 

546  . 

614. 

554. 

612. 

564. 

620. 
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67  1. 

6  76. 

65  6. 

665. 

649. 

655. 

642. 

648. 

♦  -  -  I  .  T  3  - 

<(  :>■  Y  .  I  -  i  )  ,  ■  .  v  .  ^  .  *'  I  ■  iJ ti 1  ■  i  | 

(  ’  ,  .1  .  ■  =  S  ,  f  /  'll) 


c'Y,  i  .  .  OS  I  =  !  f 


i  j 

Oi 

P 

A 

1 

L 

I 

.  ;  Po 

.  > 

. 

. 

.M3 

.  JOY 

.  dSY 

1 

•  t  3o 

.  c:  t  0 

.  f  :  ) 

.  Y  A  d 

• 

•  ■  •  d  C  > 

.  3d  J 

.  0 1  Y 

S 

. 

. 

. 

. 

•  S  Ad 

. 

.  1 

.  JY 

£ 

.  1  \ 

. 

.  J  8  P 

•  J  S  d 

. 

. 

.  V  Sd 

. 

A 

• 

•  t  A  0 

.  J  Id 

.  )Sd 

» 

.  i  Ad 

.  Y  Ad 

.  Yd 

e 

. 

.  V 

.ppe 

.  JSd 

.  ?dd 

.  p  e  d 

d 

.  ;  8 

< 

.  .  V.  • 

.  £  j  i'j 

. 

.  io<- 

.i  t 

.  I  \  d 

.  Y 

.  Odd 

Y 

o  c 

. 

.  *  • 

.  SY  c 

•  ■ 

. 

.oe? 

, 

.  JtiC 

. 

..  -1C 

.  lc1. 

. 

.  i 

. 

«  t- 

. 

.  d  f  d 

•  e  s  d 

p 

. 

.  * 

.  SA< 

•  c  J  •  ‘ 

.fae 

.  A‘  c 

.  P  3  0 

.  A  d( 

. 

)  I 

i'l. 

.  C 

.  t 

.  i  0  C 

. 

.  ^  ^ 

. 

.  j  y  e 

.  POd 

. 

.  P  3d 

1 1 

Y  Ac 

.tJ0« 

. 

. 

. 

.  S  J 

.pee 

.  <  s 

.  A  Id 

.  i  ve 

SI 

1  d  c. 

.  1  A  i 

.  ♦-''Ac 

.  ’  i 

.  <  -"H  ■ 

.  oe 

•  Pot 

.  *  A  ■ 

.do  i 

( 1 

rtc 

. 

.  • 

•  »  \J  i 

. 

.  0  0 

.ay  e 

.  •£ 

« 

.  Y  we 

- 

A] 

Y  c 

.  dc 

.  v  • 

. 

.  c  oC 

.  '  . ' . 

.  e  j  d 

.  a  i  . 

•  A?d 

.  ddd 

.  M  d 

.  •  . 

. 

. 

.  £ 

.  \  Pa 

. 

.  <  Y 

di 

.  ■  n<- 

.  SC  - 

. 

. 1 

.see 

.  Y  3 

.  1  ' 

Y  f 

.  •  •  c 

.  I 

.  •  r  < 

•  ■ 

.  Ac* 

.  A  C 

t! 

81 

.  A  ■ 

.  A 

.  <  i 

. 

•  '•  C 

. 

•  d  Y  d 

.no 

PI 

CGNTD 


TABLE  B-  4 


MATRIX  OF  PRESSURE  IN  GAS  R E SE R VO  I R , ( PS l A ) .  BY  ADEP 


(TIME  STEP  =  30.  D AYS) 


TIME  =  1440.  DAYS 


J 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

I 

L 

663. 

6  35. 

624  . 

605. 

601. 

592. 

611. 

624. 

2 

646. 

588. 

600. 

559. 

576. 

540. 

595. 

617. 

3 

641. 

604. 

5  94. 

570. 

571. 

560. 

593. 

612. 

4 

622. 

556  . 

569. 

519. 

545. 

499. 

575. 

601  . 

5 

610. 

575  . 

569. 

56  3. 

546. 

534. 

570. 

590. 

6 

589. 

532  . 

547. 

496. 

521. 

474. 

545. 

566. 

7 

588  . 

552  . 

546. 

52  L  . 

523. 

505. 

525. 

524. 

516. 

500. 

505. 

8 

584. 

499. 

527. 

471  . 

502. 

45  l  . 

489. 

444  . 

483. 

440. 

484. 

9 

597. 

550. 

5  39. 

503. 

505. 

480. 

485. 

466. 

478. 

464. 

478. 

10 

586. 

479  . 

509. 

644. 

480. 

414. 

455. 

406. 

451  . 

418. 

461. 

1  1 

599. 

547  . 

532. 

488. 

488. 

458. 

464  • 

444. 

454  . 

445. 

463. 

12 

598. 

487  . 

526 . 

431 . 

4  75. 

418. 

452. 

407. 

440. 

409. 

460. 

13 

617. 

570. 

559. 

5C9. 

498. 

462. 

466. 

44  7. 

45  7. 

452. 

47  5  . 

14 

612. 

517. 

549. 

439. 

4  91. 

414. 

458. 

412. 

453. 

427. 

480. 

15 

624. 

594. 

581 . 

536. 

52  7. 

478  . 

481. 

457. 

474. 

469. 

496. 

lb 

490. 

516. 

400. 

481. 

398. 

472. 

425. 

499. 

17 

54  1  . 

552. 

512. 

530. 

504. 

522. 

502. 

528. 

18 

517. 

558. 

457. 

536. 

466. 
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477. 

542. 
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599. 

606. 

583. 

592. 

575. 

581 . 

567. 

573. 
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TABLE  6-  5 


MATRIX  OF  PRESSURE  IN  GAS  RE SE R VO  I R , ( P S I  A ) .  BY  AOEP 


(  T  I  M  E  STEP  = _ 60..  DAY  S  ) 


TIME  =  120.  CAYS 


J 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

I 

l 

990. 

978  . 

979. 

974. 

976. 

971. 

981. 

987. 

2 

982. 

952. 

967. 

950. 

964. 

943. 

974. 

985. 

3 

985. 

96  8. 

969. 

962. 

966. 

959. 

976. 

985. 

4 

980. 

946. 

961. 

939. 

956. 

930. 

970. 

984. 

5 

981 . 

965  . 

96  7. 

958. 

963. 

956. 

9  79. 

983. 

6 

975. 

946. 

961  . 

939. 

956. 

932. 

968. 

979. 

7 

979. 

963. 

966. 

9  5  9. 

964. 

956. 

96  7. 

968. 

972. 

968. 

972. 

8 

978. 

936  . 

959. 

93  7. 

959. 

935. 

956. 

937. 

959. 

940. 

963. 

9 

985. 

966  . 

970. 

958. 

965. 

956. 

961. 

954. 

961  . 

956. 

963. 

1C 

979. 

928. 

956. 

932. 

955. 

929. 

950. 

930. 

952. 

937. 

957. 

L  1 

985. 

96  5. 

968. 

955. 

962. 

951  . 

957. 

950. 

955. 

951. 

959. 

12 

980. 

927. 

963. 

926. 

9  56. 

934. 

953. 

934. 

949. 

935. 

957. 

13 

987. 

968  . 

977. 

962. 

966. 

954. 

959. 

951  . 

956. 

953. 

963. 

14 

981. 

934. 

966. 

92  3. 

960. 

92  9. 

95  3. 

933. 

95  2. 

939. 

963. 

15 

988. 

9/7. 

982. 

969. 

9  74. 

957. 

962. 

951  . 

958. 

954. 

96  7. 

16 

944. 

964. 

915. 

957. 

918. 

951. 

927. 

962. 

17 

966. 

975. 

960. 

973. 

960. 

969. 

957. 

970. 

18 

941. 

967. 

919. 

965. 

92  9. 

965. 

934. 

969. 
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979. 

985. 

977. 

985. 

978. 

98  3. 

975. 

980. 
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TABLE  B-  5 


MATRIX  GF  PRESSURE  IN  GAS  R E S E R VO  I R  ,  ( P S I  A ) .  BY  ADEP 


(  T I  ME  S TE P  =  60 ,  DAYS) 


TIME  =  360.  DAYS 


J 

1 

2 

3 

A 

5 

6 

7 

8 

9 

10 

11 

I 

] 

9A0  . 

923. 

918. 

908. 

908. 

90  A  . 

918. 

92  7. 

2 

930. 

89  3. 

903. 

879. 

893. 

872. 

909. 

92A. 

3 

929. 

906  . 

902. 

£89. 

892. 

886. 

909. 

923. 

A 

9  20. 

87  8. 

889. 

861  . 

879. 

853. 

901. 

920. 

5 

917. 

895  . 

893. 

879. 

883. 

878. 

903. 

917. 

6 

907. 

872  . 

883. 

856. 

8  73. 

8A8. 

892. 

90/. 

7 

910. 

£88. 

887. 

875. 

880. 

871. 

886. 

888. 

888. 

882. 

886  • 

a 

910. 

859. 

878. 

850. 

871  . 

8A5. 

869. 

8A7. 

871. 

8  50. 

875. 

9 

920. 

89  l . 

889. 

871. 

876. 

86  A . 

869. 

861. 

870. 

86A. 

872. 

10 

912. 

8  A  9  . 

872. 

8  AO  . 

863. 

831. 

855. 

832. 

856. 

8  AO. 

863. 

1 1 

919. 

889. 

885. 

865. 

869. 

856. 

861  . 

852. 

858. 

8  5  A  . 

86  A  • 

12 

917. 

85  1  . 

881. 

8  3  A  . 

862. 

835. 

855. 

833. 

851. 

836. 

862. 

13 

92  7. 

ass . 

9C0. 

876. 

875. 

858. 

863. 

853. 

859. 

8  5  7. 

870. 

1  A 

922. 

865  . 

891. 

835. 

870. 

832. 

857. 

8  3A. 

856. 

8  A3  . 

871. 

15 

931  . 

913  . 

912. 

890. 

889. 

86  A . 

868. 

855. 

86  5. 

862. 

878. 

16 

862. 

880. 

819. 

86A  . 

821  . 

860. 

836. 

876. 

17 

£89. 

8  97. 

8  7  A  . 

889. 

87A. 

886. 

87A. 

890. 

18 

870. 

896. 

837. 

887. 

8A8. 

888. 

856. 
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TABLE  B-  5 


MATRIX  OF  PRESSURE  IN  GAS  RESERVO  I R  ,  { PS l A ) .  BY  ADEP 


( 1 1  ME  S TE P  =  60.  DA Y  S ) 


TIME  =  600.  DAYS 


J 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

I 

1 

882. 

862  . 

854  . 

842. 

640. 

835. 

850. 

860. 

2 

870. 

828  . 

838. 

810. 

823. 

800. 

840. 

8  56. 

3 

867. 

84  1. 

835. 

8  19. 

821. 

815. 

839. 

854. 

A 

855. 

8C9  . 

819. 

786. 

805. 

776. 

629. 

849. 

5 
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825  . 

821. 

8  C  5  . 
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843. 
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836. 
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8C8  . 

7  76. 
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766. 

614. 
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789. 

804. 

805. 
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795. 

799. 

8 
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70  C. 

800. 

766. 

787. 

75  7. 

782. 

757. 

783. 

758. 

786. 

9 

848. 

815. 

8  1C. 

787  . 

791. 

776. 

781. 

771  . 

780. 

7  73. 

782. 

10 

84  1  . 

76  S  . 
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752. 

7  76. 

738. 

763  . 

737. 

764  . 

746. 

771. 

1 1 

849. 

8  14. 

806. 

780. 

702. 

76  5. 

769. 

759. 

/ 66  • 

761 . 

772. 

12 
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774. 

802. 

745. 
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763. 

738. 

757. 

740. 

7  70. 
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79  3. 

788. 

767. 

771. 

760. 

767. 

765. 

779. 
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856. 

792. 

8  16. 

749. 

7  83. 

739. 

765. 

739. 

764. 

750. 

782. 
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810. 
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776. 

779. 
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776. 

773. 

790. 

16 
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728. 
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728. 

773. 
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17 
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793. 
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TABLE  B-  5 


MATRIX  OF  PRESSURE  IN  GAS  RE SE R VO  I R , ( P S I  A ) .  BY  ADEP 


( TIME  STEP  =  60.  DAYS) 


TIME  =  960.  DAYS 


J 

1 

2 

3 

A 

5 

6 

7 

8 

9 

10 

1 1 

I 

1 

789. 

766. 

757. 

7  A  l  . 

738. 

732. 

7A8  . 

759. 

2 

775. 

727. 

7  3  7. 

70  A. 

718. 

690. 

735. 

7  5  A  . 

3 

771  . 

7A1  . 

733. 

71  A. 

715. 

706. 

7  3  A. 

750. 

A 

756. 

702  . 

713. 

6  7  A  . 

695. 

660. 

720. 

7A2. 
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7  A  7  . 

719. 

713. 

693. 

696. 

66  7. 

717. 

73  A  . 
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730. 

685  . 

697. 

658. 

678. 

6A3. 

698. 

715. 

7 

731. 

7C2. 

69  7. 

678. 

680. 

667. 

683. 

683. 

678. 

66  7. 

67  1. 

8 

729. 

661. 

683. 

6  A  1  . 

665. 

627. 

656. 

62  A  . 

653. 

622. 

655. 

9 

7  AO  • 

70  1  . 

693. 

665. 

667. 

6A9. 

653. 

6A0  • 

6A9  . 

6  39. 

650. 

LO 

731. 

6A  7  . 

670. 

622. 

6A8. 

601. 

630. 

597. 

629. 

606. 

637. 

I  1 

7A1 . 

70  C  . 

688. 

6  5  A . 

65A. 

633. 

637. 

623. 

631. 

625. 

6  38. 

12 

7  A  1 . 

65A  . 

683. 

613. 

6  A  5  . 

60  A  . 

629. 

597. 

621. 

600. 

6  36. 

13 

7  56. 

718. 

710. 

670. 

6  6  2. 

635. 

639. 

625. 

633. 

630. 

6A  7  . 

1A 

752. 

6  7  6. 

701. 

619. 

6  57. 

601. 

632. 

600. 

630. 
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651. 

15 

762  . 

738. 

728. 

692. 

685. 

6  A  7  . 

650. 

6  32. 

6A5  • 

6A2. 

662. 

16 

656. 

6  76. 
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611. 

663. 

17 

6  96. 
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673. 

688. 

668. 
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688  • 
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678. 

709. 

632. 

692. 
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692. 
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699. 

19 
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TABLE  B-  5 


MATRIX  OE  PRESSURE  IN  GAS  RESERVO  I R  ,  ( PS  I  A ) .  BY  ADEP 


( TIKE  STEP  =  60.  DAYS) 


TIME  =  1200.  DAYS 


J 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 
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1 

727. 

70  1 . 

69  1. 

6  7  3. 

670. 

662. 

679. 

691  . 

2 

711. 

658. 

669. 

632  . 

648. 

616. 

666  . 

685. 

3 

706. 

673. 

664. 

64  3. 

643. 

633. 

66  3. 

681  . 

4 

689. 

63C  . 

642. 

598. 

620. 

580. 

647. 

672  . 

5 

679. 

647. 

641. 

619. 

621 . 

611. 

643. 

661  . 

6 

660. 

609. 

622. 

578. 

600. 

560. 

621. 

640. 

7 

659. 

628. 

622. 

600. 

602. 

586. 

604  . 

603. 

596. 

583. 

587. 

8 

657. 

58  1  . 

605. 

55  7  . 

584. 

540. 

572. 

535. 

568. 

532. 

569. 

9 

668. 

626  . 

616. 

584. 

586. 

564. 

568. 

553. 

563. 

552. 

5b3. 

10 

659. 

5  6  A  . 

590. 

534. 

5  64  • 

509. 

54  3. 

503. 

540. 

513. 

549. 

1  1 

670. 

623. 

610. 

5  72  . 

571. 

546. 

550. 

534. 

542. 

535. 

550. 

12 

670. 

572. 

605. 

523. 

560. 

512. 

540. 

503. 

531  . 

505. 

54  7. 

13 

686. 

644  . 

634. 

589. 

580. 

549. 

552. 

536. 

545  . 

54i  • 

561. 

14 

68  2. 

597. 

625. 

530. 

574. 

509. 

545. 

507. 

542. 

521. 

565  . 

15 

693. 

666  . 

654. 

6  14. 

605. 

563. 

565  . 

545. 

^59. 

555. 

579. 

16 

573. 

896. 

498. 

565. 

496. 

558. 

519. 

582. 

17 

618. 

627. 

592. 

609. 

586. 

602. 

585. 

608. 

18 

598. 

634. 

546. 

614. 
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612. 

564. 

620. 

19 

671  . 

676. 

6  5 6  • 
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649. 

655. 

642. 

647. 
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TABLE  B-  5 


MATRIX  OF  PRESSURE  IN  GAS  R E SE R VC  I R , { P S I  A ) .  BY  ADE  P 


(TIME  STEP  =  60.  LAYS) 


TIME  =  1440.  DAYS 


J 

1 

2 

3 

624. 

4 

5 

6 

7 

8 

9 

10 

1  1 

I 

L 

664. 

636. 

605. 

601 . 

592. 

611. 

624  . 

2 

646 . 

589. 

6CC . 

559. 

5  76. 

540. 

596. 

618. 

3 

641 . 

605. 

5  94. 

571. 

572. 

560. 

593. 

613. 

4 

622. 

556. 

570. 

5  20. 

546. 

500. 

575. 

602. 

5 

611. 

576  . 

569. 

544. 

546. 

535. 

571. 
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TABLE  B-6 


PRODUCTION  PATTERN 

OF  GAS 

RESERVOIR 

WITH  SEVEN 

CORNER 

WELLS 

Location  of 
Wells 

Vol.  Rate, 

(Vi,j 

Location  of 
Wells 

Vol.  Rate, 
(V  )  .  . 

g  l ,  j 

(if  j) 

mmscf /Day 

(i,  j  ) 

mmscf/Day 

i — 1 

i — 1 

* 

0 . 5 

8,6 

00 

o 

o 

*15,1 

0  o  5 

o 

1 — 1 

i— 1 

o 

o 

4,2 

0.9 

12,6 

0.8 

6,2 

o 

o 

00 

KD 

1 - 1 

o 

o 

00 

8,2 

o 

o 

! - 1 

16,6 

o 

o 

1 — 1 

10,2 

1,2 

18.6 

1  o  2 

12,2 

i — 1 

0 

1 — 1 

*  1,8 

LT> 

O 

o 

2,4 

0.6 

*  7,8 

0.5 

4,4 

00 

o 

o 

00 

u. 

o 

1 — 1 

0 

o 

6,4 

0.7 

12,8 

0 . 6 

8,4 

0.8 

00 

rH 

0.6 

o 

1 — 1 

o 

o 

1 — 1 

16,8 

o 

o 

1 — 1 

12,4 

o 

o 

00 

00 

1 — 1 

o 

e 

1 — 1 

• — i 

1.0 

o 

1 — 1 

o 

I — 1 

0.5 

V£> 

i — 1 

0.5 

12,10 

o 

o 

*19,4 

0.5 

o 

iH 

• — i 

0.5 

2,6 

00 

0 

o 

o 

i — i 

<sO 

rH 

0.8 

4,6 

0.9 

i — 1 

rH 

* 

0.5 

6,6 

0.8 

*19,11 

0.5 

*  Corner  Wells 


TABLE  B— 7 


MATRIX  OF  PRESSURE  IN  GAS  R t S E R VO  I  R  ♦  ( P S  I  A  )  .  BY  ADtP 


WITH  SEVEN  WELLS  AT  CORNERS 


TIME  =  120.  DAVS 


J 

l 

2 

1 

A 

5 

6 

7 

8 

9 

10 

11 

I 

l 

958. 

979. 

982. 

975. 

9  73. 

962. 

956. 

921  . 

2 

983. 

982  . 

977  . 

952. 

96  3. 

938. 

961. 

959. 

3 

987. 

97  7  . 

975. 

9  6  A  . 

966. 

957. 

970. 

975. 

A 

981  . 

9  A  5  . 

963. 

9  A  0 . 

957. 

930. 

968. 

979, 

c; 

982. 

966  . 

968. 

959. 

963. 

955. 

9  72. 

980. 

6 

975. 

9  A  6  . 

96  1  . 

939. 

956. 

931. 

965. 

971  . 

7 

979. 

963. 

966. 

959. 

965. 

956. 

965. 

951 . 

966. 

953. 

896. 

8 

978. 

936  . 

960. 

938. 

959. 

938. 

965. 

969. 

9  7  A  . 

966. 

950. 

9 

985. 

966  . 

9  7  C . 

958. 

965. 

958. 

966. 

965. 

971  . 

965. 

96  3. 

LC 

979. 

928  . 

956. 

932. 

956. 

929. 

953. 

934. 

956. 

941. 

959. 

I  1 

985. 

965  . 

969. 

955. 

962. 

952. 

958. 

951  . 

957. 

953. 

961. 

12 

98  1  . 

9  3  C  . 

96  A . 

927. 

956. 

93A  . 

953. 

934. 

950. 

936. 

958. 

13 

990. 

98  1  . 

98  1  . 

963. 

966. 

9  5A. 

959. 

951  . 

957. 

953. 

964. 

1 A 

98  A  . 

988  . 

979. 

926. 

960. 

929. 

953. 

933. 

952. 

939. 

963. 

15 

9AC  . 

98  1  . 

986. 

97  1. 

9  7  A  . 

957. 

962. 

951 . 

959. 

956. 

968. 

16 

9  A  7  . 

965. 

915. 

95  / . 

919. 

954. 

931. 

96A  . 

17 

977. 

979. 

96  1. 

9  7A. 

962. 

975. 

969. 

973. 

18 

97  5. 

9  7  A . 

920. 

965. 

932. 

976. 

977. 

968. 

19 
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979  . 
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985. 

978. 

985. 

974. 

934. 
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TABLE  B- 7 


MATRIX  OF  PRESSURE  I N  GAS  RESERVO IR t ( PS  I A ) .  BY  ADEP 


WITH  S E V EN  WE L LS  A T  CGR MER  S 


TIME  =  360.  CAYS 


J 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1  1 

I 

1 

906. 

926  . 

923. 

9  C  7 . 

890. 

879. 

868. 

829. 

2 

933. 

926  . 

9  16. 

682. 

886. 

853. 

875. 

873. 

3 

936  . 

920  . 

9  1C. 

85  1 . 

888. 

875. 

889. 

895. 

A 

925. 

68  5  . 

854  . 

862. 

876. 

84  5. 

869. 

904. 

5 

920. 

899  . 

896. 

8  8  0  . 

882. 

874. 

895. 

906. 

6 

9C9. 

874  . 

885. 

8  5  7. 

873. 

846. 

886. 

896. 

7 

911. 

889  . 

888. 

876. 

381. 

872. 

883. 

869. 

884. 

865. 

799. 

8 

911. 

859  . 

8  79  . 

852. 

873. 

850. 

881. 

887. 

891  . 

879. 

859. 

9 

920. 

892  . 

8  9C  . 

87  3. 

8  78. 

869. 

879. 

879. 

885. 

877. 

873. 

1C 

914  . 

85  1 . 

873  . 

842. 

8  6  6. 

835. 

861  . 

842. 

866. 

849. 

668. 

1  1 

923. 

893  . 

889  . 

868. 

872. 

859. 

865. 

858. 

865. 

860. 

869. 

12 

924. 

86  1 . 

886. 

836. 

863. 

838. 

858. 

837. 

856 . 

841  . 

667  . 

1  3 

939. 

924  . 

9  15. 

£83. 

879. 

861  . 

865. 

856. 

863. 

861. 

874. 

14 

934  . 

935  . 

9  18. 

846. 

8  75. 

835. 

859. 

837. 

860. 

847. 

876. 

15 

886. 

92  7  . 

926. 

858. 

894. 

867  . 

871. 

859. 

870. 

868. 

684. 

16 

87  1  . 

885. 

822. 

867. 

826. 

868. 

847. 

885. 

17 

9C5. 

904. 

8  78. 

892. 

881  . 

898. 

895. 

900. 

18 

9  C  5 . 

902. 

840. 

890. 

856. 

908. 

910. 

899. 

19 

674  . 

9  11. 

908. 

921. 
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924. 
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CCNTC .  ______  TABLE  B-7 


MATRIX  CF  PRESSURE  IN  GAS  RESERVE!  I R  » ( PS  I  A )  .  BY  ADEP 


W  I  T  H  S EVEN  WEL L  S  A T  C CR  N E  R S 


TIME  =  60  0  •  CAYS 


J 

l 

2 

3 

A 

5 

6 

7 

8 

9 

10 

11 

I 

I 

8A6. 

865  . 

859. 

839. 

825. 

802. 

788. 

7  A  3  . 

2 

8  75  . 

86  1  . 

85  1. 

8  10. 

8  11. 

773. 

796. 

793. 

3 

877. 

858. 

BAA. 

820. 

8  13. 

796. 

811. 

817. 

A 

863. 

818  . 

825. 

78  7  . 

800. 

76 A  . 

81  1. 

826. 

5 

85  5  . 

8  3  C. 

825. 

8C5. 

805. 

79  A. 

81b. 

828. 

6 

8  AO  . 

80  1  . 

811. 

7  78. 

7  9  A  . 

762. 

806. 

815. 

7 

8  A  1  . 

816  . 

813. 

79  7. 

800. 

789. 

801. 

785. 

799. 

777. 

703. 

8 

8  AO  . 

783  . 

802. 

76  9. 

791  . 

76 A  . 

797. 

803. 

806. 

793. 

770. 

9 

850  . 

818. 

813. 

791. 

795. 

78  A  . 

79A. 

793. 

799. 

790. 

7  85. 

10 

8  A  A  . 

7  7  A  . 

795  . 

757. 

781. 

7  A  5  . 

773. 

750. 

7  77. 

758. 

779. 

i  1 

856  . 

82  1  . 

812. 

786. 

7  87. 

771. 

777. 

768. 

775. 

771. 

780. 

12 

860. 

7  SC. 

8  1  A. 

7  5  A  . 

780. 

7A8  . 

769. 

7A5  . 

765. 

7A9. 

778. 

13 

880. 

861. 

8  A  6  . 

8  C  6  . 

796. 

7  7  A  . 

77  7. 

76  7. 

774. 

772. 

78  7. 

1 A 

876. 

875  . 

851 . 

76  7. 

793. 

7  A  5 . 

771. 

7A6. 

7  72. 

758. 

790. 

15 

825. 

867  . 

8  6  C . 

8  2  A  . 

8  15. 

783. 

785. 

772. 

785. 

7  8  A  • 

80  1. 

16 

793. 

807. 

73  A. 

7  8  A  . 

738. 

786. 

762. 

805. 

17 

83  1. 

829. 

800. 

8  1  A. 

802. 

822. 

819. 

825. 

18 

832. 

829. 

760. 

816. 

7  79. 

835. 

838. 

82  7. 

19 

8C0. 

8  AO  . 
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851. 

8A6. 

855. 

8  A  1 . 
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TABLE  8-7 


MATRIX  OF  PRESSURE  IN  GAS  RESERVC I R  ,  ( PS  I  A )  .  BY  ADEP 


W  ITH  SEVEN  WE  L  L  S ...  A  T  C  C  R  N  E  RS 


TIME  =  960.  DAYS 


J 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1  1 

I 

1 

750. 

11C. 

76  1 . 

73  5. 

7  17. 

689. 

671. 

617. 

2 

781  . 

111. 

75  1. 

702. 

701 . 

654. 

680. 

675. 

3 

782. 

7  59  . 

742. 

712. 

7  02. 

681  . 

696. 

703. 

A 

765. 

713. 

719. 

673. 

686. 

64  2. 

695. 

712. 

5 

754. 

725  . 

717. 

693. 

690. 

676. 

700. 

713. 

6 

735. 

69 C  . 

ICC. 

659. 

6  76. 

637. 

68  7. 

697. 

7 

735  . 

706  . 

7C1. 

68  1  . 

682  . 

668. 

680. 

658. 

674. 

647. 

555. 

8 

733. 

666  . 

687 . 

646. 

670. 

636. 

6  74. 

679. 

682. 

666. 

638. 

9 

745. 

1C  7  . 

699. 

67  1  . 

6  74. 

659. 

670. 

667. 

673. 

661. 

6  56. 

1C 

739. 

656  . 

6  78  . 

63  1. 

657. 

613. 

645. 

616. 

64-  7  • 

623. 

649. 

1 1 

754  . 

71.  3. 

7CC  . 

665. 

665. 

644. 

649. 

637. 

645. 

639. 

651. 

12 

761. 

o  7  8  . 

7  C  3  . 

628. 

657. 

6  1  6  • 

64  0. 

610. 

6  34. 

613. 

648. 

13 

785. 

762  . 

741. 

69  1  . 

677. 

64  7. 

650. 

637. 

645. 

643. 

660  . 

14 

782. 

7  79  . 

748. 

646. 

6  73. 

614. 

64  4. 

613. 

643. 

627. 

t>64  • 

15 

725. 

11C. 

759. 

7  14. 

7  CO  • 

660. 

662. 

645. 

660. 

659. 

679. 

16 

6  7  6. 

690. 

603. 

661. 

606. 

66  3. 

635. 

685. 

17 

721. 

7  18. 

683. 

699. 

685. 

708. 

704. 

711. 

18 

722. 

7  19. 

638  . 

702. 

659. 

725. 

728. 

714. 

19 

686  . 

732. 

727. 

744. 

738. 

748  . 

732. 

673. 
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TABLE  6-7 


MATRIX  CF  PRESSURE  IN  GAS  RESERVOIR » ( PSI A) .  BY  ADEP 


WITH  SEVEN  WELLS  AT  COR N ERS 


TIME  =  I2CC.  CAYS 


J1  2  3  A  5  6  7  8  9  10  11 


I 

1 

683. 

7C5  . 

695  . 

666. 

646. 

614. 

594. 

532. 

2 

717. 

7C6  . 

684. 

629. 

62  7. 

574  . 

603. 

598  . 

3 

718. 

693  . 

674. 

640. 

629. 

6C4  . 

621. 

628. 

4 

699  . 

64  1  . 

648. 

596. 

610. 

559. 

619. 

638. 

5 

686. 

6  5  4  . 

64  6. 

6  18. 

615. 

598. 

624. 

638. 

6 

665. 

615  . 

626. 

5  79. 

598. 

553. 

608. 

620. 

7 

665. 

622  . 

626  . 

6  C  3  . 

604. 

587. 

600. 

575. 

593. 

562. 

453. 

8 

662. 

587  . 

611. 

563. 

590. 

551. 

594. 

598. 

601. 

582. 

551 . 

9 

676. 

62  3  . 

6  24. 

592. 

595. 

57  7. 

589. 

585. 

59  1  . 

578. 

572. 

1C 

669. 

576  . 

6C  1. 

546. 

5  75. 

524. 

560. 

526. 

562  . 

5  34. 

56  3. 

1  1 

686. 

64  C  . 

625. 

586. 

584. 

560. 

565. 

551 . 

560. 

553. 

566  • 

12 

694. 

602  . 

6  29. 

543. 

5  1 5. 

528. 

555. 

520. 

547. 

523. 

563. 

13 

721  . 

695  . 

671 . 

6  15. 

598. 

564. 

567. 

551  . 

560. 

557. 

57  7. 

14 

718. 

714. 

679. 

564. 

594. 

526. 

560. 

524. 

559. 

539. 

582. 

15 

656. 

7C4  . 

69  1  . 

640. 

624. 
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580. 

561  . 
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576. 

599. 
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598. 

6  14. 
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580. 

517. 

582. 

549. 

606. 

17 

64  7. 

644. 
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623. 

606. 

632. 

627. 

635. 

18 

649. 
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555. 

627. 
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654. 
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TABLE  B-7 


matrix  Of  PRESSURE  IN  GAS  RESERVOIR » ( PSI A) .  BY  ADEP 


with  s even  wells  at  cgrners 


TIME  =  1440.  CAYS 


J1  2  3  4  5  6  7  8  9  10  11 


I 

I 

616. 

639  . 

629. 

597. 

574. 

539. 

516. 

443. 

2 

653. 

64  I  . 

6  17. 

5  55. 

554. 

493. 

526. 

520. 

3 

654. 

626  . 

6  C  5  . 

568. 

555. 

528. 

546. 

554. 

4 

633  . 

569  . 

5  76. 

5  18. 

534. 

475. 

543. 

565. 

5 

619. 

584  . 

574. 

54  3. 

539. 

520. 

549. 

564. 

6 

596. 

539  . 

552. 

498. 

5  19. 

467. 

531. 

543. 

7 

595. 

559  . 

552. 

526. 

527. 

507. 

521. 

492. 

512. 

4  77. 

344. 

8 

592. 

507  . 

534  , 

479. 

5  11. 

464. 

514. 

519. 

521  . 

501. 

464. 

<3 

607  . 

56  C  . 

549  . 

513. 

517. 

496. 

508. 

504. 

510. 

495. 

489. 

iC 

599. 

495  . 

523  . 

459. 

494. 

433. 

476. 

435. 

477. 

444. 

479. 

I  L 

618. 

568. 

5  5  C  . 

5  C  6  . 

504. 

476. 

482. 

465. 

475. 

466. 

482. 

12 

628. 

525  . 

555. 

457. 

494. 

438. 

47G. 

428. 

460. 

431  . 

479. 

13 

656. 

628  . 

6  C  2  . 

539. 

520. 

481. 

484. 

466  . 

4  76. 

472. 

495. 

14 

653. 

649  . 

611. 

48  1  . 

515. 

436. 

4  76. 

433. 

474. 

450. 

501. 

15 

584. 

638  . 

624. 

56  7. 

549. 

498. 

500. 

477. 

497. 

494. 

520. 

16 

519. 

537. 

422. 

50  C. 

424. 

500. 

462. 

32  b. 

17 

57  5. 

571 . 

527. 

54  7. 

523. 

557. 

551. 

560. 

18 

5  7  7. 

572. 

469. 

551. 

495. 

578. 

582. 

565. 

19 

53  1. 

588. 

58  3. 

602. 

594. 

607. 

587. 

512. 
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TABLE  B-8 


MATERIAL  BALANCE 

GAS  RESERVOIR  WITH  SEVEN  CORNER  WELLS 


At  =  60  days 

Time 

Actual  Production 

Days 

Estimated  Production 

120 

1*007 

240 

1*004 

480 

1.002 

840 

1*001 

1560 

1*000 

* 


APPENDIX  C 


WATER-INJECTED  OIL-RESERVOIR 


1 .  Emperical  correlations  of  capillary  pressure  data: 


P 


P 


c 


0 .01299 

0.05031 

+  7.0702 

0.14^ 

S  < 
wx 

0.20 

(S  -0.14) 2 
w 

r*H 

o 

o 

1 

w 

0 . 3742 

S  2 
w 

0.8208 

S 

w 

+  3.9248 

0 . 2  0  < 

S  < 

0.50 

P  =  5.132  -  2.704  S  0.50<  S  <  0.712 

c  w  w 


P  =  -9.1247  +  37.348  S  -  28.13  S  2  0.712$S  <  1.0 

c  w  w  w 


P  in  psia;  S  is  fractional  water  saturation, 
c  1  w 


2 ,  Relative  permeability  relations: 


rw 


ro 


-( 


S  -0.14 
w 

0.86 

0.86  -  S 

w 

0.86 


0.14  ^  S  <  1.0 
x  w  ^ 

0.14  <  S  ^  0.86 
w  v 


For  the  purpose 
conditions  are 


k 

k 


rw 

ro 


0 


of  iterative  procedure, 

also  imposed: 

for  S  <  0.14 
w 

for  S  >  0.86 
w 


the 


following 


0 
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MATERIAL  BALANCE 


TWO-PHASE  FLOW 


Time  Step 

At 

Time 

Percent 

Deviation 

At 

days 
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SOURCE  LISTINGS  OF  COMPUTER  PROGRAMS 

Computer:  IBM  7040 

Language  :  Fortran  IV 

o  Three-Dimensional  Diffusion  Equation 

a)  Analytical  Solution 

b)  Brian-Douglas-Rachf ord  Method 

c)  Alternating  Direction  Explicit  Procedure 

o  Two-Dimensional  Model  of  a  Liquid  Reservoir 

a)  Alternating  Direction  Implicit  Procedure 

b)  Alternating  Direction  Explicit  Procedure 

o  Nonlinear  Model  of  a  Gas  Reservoir: 

Alternating  Direction  Explicit  Procedure 

o  Simulation  of  Two-Phase  Flow  in  Oil  Reservoirs 


Alternating  Direction  Explicit  Procedure 
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20 

T ( 12, J,K)=C. 

CC  2  1  1  =  2,  ISM 
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_ CC  AC  K  =  2  ,  K S M  _ _ _  _ 

C  C  4  C  J  =  2  ,  J  S  M 
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AC  T  X (  I  P  »  J  »  K  )  =G (  IP,J,K)-F(IP)*TX(IP+1,J,K) 

C  CCNC i T  I  CN  CF  SYMM.REV  1  VEO 


I  ♦  S  =  >  I  3  I 
•'*  i, » s  =  e  t  j  i 

ex  13 

3.1  (  »  L  r  I  )  T  cl 

III  y  U  / 

♦  =  \  J  I 

'.21.  »  =t  -  ,  i.l 
.  I  ■  T  i  *  S  :  )  x  I 
.  3*  (  M  Y  1 

»  '  -  {  t  f  \  1  J  I  S 

v  ■  i  ,  s  = !  is  :n 

1  >1 ,  =  x  !>  13 

.  J  -  (  "  ♦  ,1)1 

.  J-  (  ,  N  I  r  I  )  r  T 

.  =  (  >  .  S  I  t  I  )  T  IS 
Z  I  »  -  :  >  N  I 

M  2  L  ,  s  =  l  S  S  3  3 

.  -  (  I  t  ,  I  )  X  T 

(  i  ,  , ,  t  )  y  i 
.  =  (  i  .  .nr  ss 

2  J  =  2  J  3 

(  \  C  I  ♦  3  )  J  I  I 

n  ,  ♦  ,  )  i  ,  ,  j  , i  ,  .  d  >k'Ii  f  (  i  -•  i  , ■: )  II 

T  2  J  «  i  =  A  J  13$  13 

l  J)  J  3*  T  .  =  j  T 

J  T  =  J  T  I 

2  j  1 1  =  j  os  :n 
y  r  .  •  •  ’  -n  / n  i  i  I  j /  .3 

X  t  S  =  Jfc  3  3 

V  f  = j'  i 

(  ,  ,  )  r  =  (  ,  i  ,  i )  t 

'■.2X,S»*  Sl 
■an  =  i  3:i 

(  i  ♦  . » i )  r  =  i  ,ni)i  s K 

2  1  ,  S  =  (  EE  3  J 
2 L  «  S  =  L  O  33 

(S,L»I)T=(i,Lfl )r  e 1 
I  I  i  -  I  I  1 J  *  l 

M  2  >  ,  S  =  X  3  E  3  3 

I I  .  1  =  l  3  i  1 3 
M  2  I  »  S  = I  M  33 

.  I  -  i  ,  !  +  i  ,  )  I  - (  ,  -if  )  I  -  (  ,  ,i  )  =  (  I , L  ,  1)  1  3  : 

(  n  .  ,  i  )  t  -  i 
:  n  =  x  n  3i  .  ■ ' 

l  l ,  $  =  L  M  3  3 
{ \  n  \  .  • 1  )  -i  • »  l  t  )  > 

v.  1 1  - 1  \ 1  n 

in  ui  ,  ,  i  - 1 ) .  m  i  )  -  (  t  l  ,  )  )  (  ■ ,  l  ,  i  )  r>  v 

a  ,  S  *  H  3  £  j  J 
2LfS=L  JA  33 
(  ,  -  ,  I  )  =  (  ,  L  ,  2  I  )  a  T 

1 2  I  ,  S  =  1  A  :  1 

!  -  1  =  l  1 

l  l  r  >  - ,  ,  i  ,  •  )  -  (  i 

i  I D  -  )  I  r  i  13 


_ CC  5?  K=2,KSN _ 

CC  53  J  =  2  »  J S iv 

53  T  X ( 1 ,  J  ,  K )  =  T  X  (  2  »  J  »  K  ) 

CC  54  K=2,KSM .  .  . 

CC  54  1  =  2 »  ISM 

54  T  X  (  I  T  1  ,K  )  =TX  (  I  ,2  ,K  ) 

_ _ _ CC  55  J  =  2  ,  J  SM _ 

CC  55  1  =  2,  ISM 
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TV (  1,JSM,K)=G(  I  »  J  S  M , K  ) 

CC  65  J=  2  ,  J  SO 

_ J  P  =  J  S- J _ 

65  T  Y  (  I  ,JP,K  )=G(  I  ,JP»K  )  —  F  (  J  P  )  $  T  Y  (  I  »  J  P  +  1  » K  ) 
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C  ~  TERE  E-C  I  MENS  I  CM  L  T I F  F  US  I  CN  EDU  A  T  I  CN . SO L  VED BY  ACER 

C  #  *  *  $  $  $  # 

c _ 

c 

C  INENSICN  TF( 12,  12, 12 ) ,TR( 12, 12,12) 

. . 5  F  CRN  A  T (  IF/  ,  I2F  1C .6 ) 

6  FCRNAT (  1 F  1 »  3 AH F  C  RWA RD  S  WE E  P , T EN PS .  AFTER  ,  I  5 , 3H 

IFRS  ) 

7  FCRNAT (  1F1,3AHR£V£RSE  SWEEP,  TE NPS.  AFTER _ ,  15, 3H 

IFRS  ) 

8  FCRNAT (  IH1 ,46HK=7  TC  K SN , J  =  I  ,  JS ( HOR I ZONT. ) , I  =  1 , I SM ( VER 
IT  ICAL  )  ) 

9  FORMAT!  1HJ,40FIK  =  2  FC  6 , J- 1 , JS ( HOR I Z. ) , 1=2 » I SM ( VERT IC. ) 
1  ) 

_ 1  AC  FCRNAT(lX,AI3,lX,F5,l,lX,F4.1,lX,Ffc.3,lX,F6.2,lX,F5«3, 

1  IX,  12  ) 

1 A  I  FGRNAT (  1H J, IX, A  13 , IX, F5. 1 ,  IX,  FA.  1  ,  IX ,F6.3 , IX, F6. 1, 1X,F 
_ _  16.3, IX, £11, 5  _____ 

S,  IX, F6 • 3 ) 

157  FCRNAT (  IF J,62H  IS  JS  KS  LS  DT  CX  PK  RHO 

_ 1CJP _ CJF _ _ _ _ _ _ 

S  ALFA  ) 

RE AC ( 5,  I  AC  )  IS,  JS,KS, LS,DT  ,DX,PK,RHC ,CP,LST 

__ _ CF=PK/(RHC*CP) 

ALFA=CX*DX/<DF*CT> 

E  E  TA=  ALF A 
WR  ITE ( 6 , 1 57 ) 

WRITt(6,lAl)  IS,  JS,KS, LS,DT,DX,PK,RHC,CP,DF,ALFA 

E  E  T3  =  3  .-B  E  T  A 

EP3=3.+BETA 

K  S  N  =  K  S  —  1 

JSN=JS-1 

_ I  SM  IS-1 _  _  _ _ 

N  C  T  =  C  T 

CC  21  K  =  1  »  K  S M 

CC  21  J  =  1 ,  J  S  Nl  _ _ _ _ _ _ _ _ _ _ 

C C  2  1  1  =  1,  IS M 
TR (  I  ,  J  ,K  )  =  1 .0 

_ 2_1  TF(  I,J,K)  =  I. 

CC  22  K  =  2  ,  K  S 
CC  22  J  =  2  ,  J S 
T  F  (  IS,  J,K  )=C. 

2  2  TR  (  IS,  J  »  K  )  =  C • 

CC  23  K  =  2  ,  K  S 

_ CC  23  1  =  2,  IS _ _ 

TF  (  I  ,  JS  ,  K  )  =  C . 

23  T  R (  l,JS»K)=C. 

CC  24  1  =  2  ,  IS 
C C  2 A  J-2 , JS 
TF  (  I  ,  J  ,KS  )=C. 

2 A  TR  (I  ,  J,KS  )=C. 
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T2j.  ,it  t  i.  a  t  I  t  t  U  L .  ’  (  ••  I  .  1  )  ru  Jfl 

(  0  *  ■  ,  }  \  -  ,  =  I  3 
l  1  ■ .  1  ) A  r  X  !  =  A  (  j  ft 

1 J  3  =  ft  T  3  3 
(Mi  ,  3  )  3TI  aw 

I J  /  t  l  .  t  i .  .  i  H  ,  \  I .  I  .  J  ,  .  L,  I  (  M  .  )  *  T I  - 

i  -  i  1 

t  i* .£=eqy 
-  .  = 

•  :u 

.  -  '  i  =  V  I 
1  j  =  T  Ml 

'■  2  X  t  I  a  X  I  S  i)  3 
IS  33 
'>21,1=1  I S  33 

.1  (  fltl  )  •'  T 

*  I  =  (  i « l ,  I  ) 3  T  IS 

3l,S=L  SS  03 

.  (  ,  l  ,  i  i  )  i  r 

.  >  (  ,L ,  I )  T  SS 
2x»S=x  f.S  33 
2  I  , S  = i  r  S  3  3 
.  )  =  M  ,  2  L  .  I  )  IT 
.)=(-. ..a.  n«T  es 
2  I »  *  I  2S  03 
=:.  ->s  .1 


.no  n,o  o  o  o 


_ I C  T  =  C  T _ _  _  _  _ 

CC  1C1  LA=l,LST 
NT=LA*2*LS*IDT 
NT  =  NT-  ICT 

CC  ICC . L  =  1  , LS 

C  FORWARD  SWEEP 

TF  (  2 , 2  ,  2  )  =  (TR(3,2,2)  +  TR  (  2  ,  3,2)+  TRJ  2  ,  2, 3  )-BE  T3*  T  R  (2,2,2 

1  )  )  /BETA 

CC  3 C  1  =  3  ,  ISM 

30  TF  (  I »  2 1 2  )  M  TF  (  1-1,2, 2  )  +  TR(I+l,2,2)+TR(I,3,2)+TR(I,2,3) 
1-B  ET  3  *  TR (  I  ,2 
S  ,  2  )  )  /  (  I. +BETA ) 

_ K±2 _ 

CC  33  J  =  3  »  J  S  M 
1  =  2 

TF(  I,J,K)  =  (TF(  I  ,  J-  1  ,K  )  +  TR (  I+1,J,K)+TR(  I  , J  +  l ,K) +  TR(  I, J, 
IK + I ) -6  E  f  3  *  T  R 
S(  I»J»K) )/( 1 • +B E  T  A  ) 

C  C  3  3  I  =  3  ,  I  S  M _ _ 

33  TF (  I  , J,K)  =  ( 1F(  1-1 , J ,K  )+TF (  I  ,  J-1,K )+TR{ 1  +  1 , J,K) +TR(  I, J  + 
1  1  , K  )  +  T R (  I  ,J, 

SK+l)-bET3*TR(  I  ,  J  ,  K  )  )/(2.+B£TA) 

CC  AC K=3,KSM 
J  =  2 

_ 1  =  2 _ _ 

TF ( I , J,K )  =  ( TF(  I , J,K-1  )+TR ( 1  +  i,J,K)+TR (I , J+l ,K) +  TR( I , J, 
1 K  +  1  )-EET3*TR 
S  (  I  ,  J,K  )  )/  (  l.+BETA  ) 

CO  36  1  =  3,  ISM 

36  TF(I,J,K)=(TF(I-1,J,K)+TF(I,J,K-L)+TR(I+1,J,K)+TR(I,J+ 
11,K)4TR(  I  ,J, _ _ _ 

SK+l)-BET3*TR(I,J,K))/(2.+BETA) 

CC  3 9  J  =  3 , J  S M 
1  =  2 

TF (  I  ,  J  ,  K  )  =  (  T  F (  I  ,  J -  i  ,  K  )  +  TF (  I,J,K-1)+TR{ 1  +  1 , J,K)+TR(  I,J  + 

I I ,  K ) +  T R (  I  ,J, 

SK+1)-BET3*TR(  I  , J  ,K  )  ) / ( 2.  +  6ETA  ) 

C  C  3  9  I  =  3  ,  I  S  M 

39  T  F (  l  ,  J  ,  K  )  =  ( TF (  I~1,J,K)  +  TF(  I,J-l,K)+TF(I,J,K-i)+TR(I+l, 

I J ,  K ) +  TR (  I  ,J  + 

Sl,K)+TRl IfJ,K+l)-BET3*TR( I , J,K) )/{3.+BETA) 

AC  CONTINUE 

C  C  AT  K  =  1  ,  K  S  _  _  _ _ _ _ _ 

CC  A  1  J=1,JS 
A  1  T  F (  1,  J,K)=TF(2,J,K) 

CC  A  2  K=1,KS 

CC . A  2  I  =  1 ,7  s 

A  2  TF (  I  ,  1  ,  K  )  =  T  F ( I , 2 , K ) 

CC  A3  1  =  1  ,  IS  _  _  _ 

“ CC  A3  J  =  1 , J  S 
A3  TF (  I  ,  J,  1  )  =  T  F (  I  ,  J  ,2  ) 

C  REVERSE  SWEEP 

CC  5C  K  Z  =  2  ,  K  S M 
K=KS-KZ+ 1 
CC5CJZ=2,JSM 


T  P.J  ,  =  A  I  I  j  I 

TQI*2J*  *AJ=TM 
T  1-1=1 
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(  ,  \  ,  1  )  1 r  =  {  , *  1  .  1  )  IT  S  A 

21,1=1  •  1 
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J  =  JS-JZ  +  l. _ _ 

CC  5C  I  Z  =  2  »  ISM 

1= IS-  IZ+  1 

50  TR{ I , J,K  )  =  (  T  R  (  I  +1  ,  J  ,  K  )  +  TR  {  I  ,  J  +  1  ,  K  )  +  T  R  (  I  ,  J  ,  K  +  1  )  +  T  M  [  -  1  , 
1J»K)+TF(  I  , J- 

S1,K)4TF(I,J,K-1)-BET3*TF(I,J,K))/BP3 
CC  57  K  =  1  ,  K  S _ 

CC  57  J=1,JS 

57  TR ( 1  ,  J,K)=TR(2,J,K  ) 

CC  56  K=1,KS 

CC  5  8  1=1,  IS 

58  TR (  1  ,  1  ,K  )  =  TR (  I  ,2  ,K  ) 

CC  6  C  1  =  1 , IS _ 

CC  6 C  J= 1  ,  JS 
6  C  TR{  I , J,  1  )  =  T  R (  I  ,  J  ,  2  ) 

ICC  CCM  INlt 

k  R  I T  E ( 6 , 7 )  NT 
V\ R  ITE  (  6 , 9  ) 

CC  5  5  K  =  2 , 6 _ 

55  URITE(6,5)  (  ( TR (I  ,  J  ,K  )  ,  J=  1  , J S ) ,  I  =2 , I SM ) 

V%RITE(6,8) 

CC  56  K  =  7  , K SM _ _ 

56  IaR  1  T  E  (  6 , 5  )  {  (  TR  (  I , J , K ) , J= 1 , J S ) , I =2 ,  I  SM  ) 

1 C  1  CCMIME 

_ Vv  R  I  T  E  (  6  t  5  )  TR(3,3,3),  T  R  (  6 , 6 , 6  )  ,  T  R  (  10,10,10) _ 
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C _ APPENDIX  D  AN  NX  2A 

C 

C 

C  TWC-C  INENC  ICNAL  MODEL  OF  AN  GIL  RESERVOIR 

C  SOLVED  BY  AC  IP 

C 

C _ _  _ _ 

C  THIS  PROGRAM  PREDICTS  THE  BEHAVIOR  OF  A  SINGLE  PHASE, 

C  SLIGHTLY  COMPRESSIBLE  ,  OIL  RESERVOIR  AS  OIL  IS  WITH- 

C  DRAWN  AT  A  KNOWN  RATE  FROM  FOURTEEN  ARBITRARILY 

C  LOCATED  WELLS,  THE  RESERVOIR  CONSIDERED  IS  GF  ~IRREG- 

C  LLAR  POLYGONAL  SHAPE  WITH  ZERO  MASS  FLUX  ACROSS  THE 

_C _  EQUNCARY, _ _ _ _  _ _  __  _ 

C  THE  RESERVOIR  IS  SIMULATED  BY  A  TWO-DIMENSIONAL 

C  MATHEMATICAL  MODEL  AND  THE  RESULTING  PARTIAL 

C  DIFFERENTIAL  EOLATION  IS  SOLVED  BY  ACIP. 

C  VISCOSITY  AT  P (N*DT  )  IS  USED  TO  CALCULATE  P ( { N  + 1 ) *DT ) 

C  THE  PROGRAM  IS  GENERAL  AND  IS  DESIGNED  TO  COMPUTE 

_C _ PRESSURE  Cl  STR  IEUT  ION  IN  THE  RESERVOIR  AND  MATERIAL _ 

C  EALANCE  AT  ANY  REQUIRED  TIME  ANC  FOR  ANY  KNOWN 

C  PRODUCTION  RATE. 

C _ _ _ _ _ _ _ _ 

C  NOMENCLATURE 

T  O  'T  T  T  T  T  T  T  T  Y  T* 

"c"~ 

C  A  RATIO  OF  CONVERSION  CONSTANTS 

C  6  FORMATION  VOLUME  FACTOR,  BSt BO  AT  PS,PO _ 

C  E  1  ,B2  CON  S  T  AM  S  IN  B  V$  P  RELATION 

C  C  COMPRESSIBILITY  OF  LIQUID  (1/PSIA) 

C  C , E _ CONSTANTS  IN  V  I  SCC S  I  T Y -PRE S SURE  RELATION 

C  CT  "  TIME  STEP  (DAYS)  PER  SWEEP 

C  CX  =DY  =  SPACE  GRID  SIZE  (FT) 

C  FACTOR  CHANGES  PRODUCTION  RATES  OF  WELLS 

C  FLAY  REAL  TIME  FOR  WHICH  RESERVOIR  HISTORY  IS 

C  DES IREC ( DAYS  ) 

_C _ ML _ VISCOSITY  (CP)  ,  USED  WITH  PRE-SCRIPTS  _ 

C  NSET  NUMBER  OF  CATA  SET 

C  NT  NUMBER  OF  CATA  SETS  USED 

F(  ,  )  PRESSURE  ( PSIA  )  ,  USED  AS  PS, PC 

C  PERM  P E  R  M  E  A B  I  L I T  Y  ( CAR  C  Y ) 

C  PRINT  TIME  INTERVAL  BETWEEN  CONSECUTIVE  PRINTOUTS 

c  P X (  ,  )  PRFSSURE  OBTAINED  BY  CHANGE  IN  X-DIRECTICN 

C  p  Y (  »  )  PRESSURE  OBTAINED  BY  CHANGE  IN  Y-D I RECT I  ON 

C  C(  ,  )  PRODUCTION  RATE  OF  A  WELL  (S.T.B./DAY) 

_C _ JIME  ___  REAL  TIME  FOR  WHICH  RESERVOIR  HISTORY  HAS _ 

C  R  F  E  N  COMPUTED  (CAYS) 

C  X K H (  ,  )  X-CIRECT  IONAL  AVERAGE  OF  K*H ( DARC Y-F T ) 

C  y K F (  ,  )  Y-C  IRECT IONAL  AVERAGE  GF  K*H ( D ARC Y-FT ) 

C  x  M  l.  (  ,  )  X-D  IRECT  IONAL '"AVERAGE  OF  VISCOSITY  (CP) 

C  Y  ML (  ,  )  Y-D  IRECT IONAL  AVERAGE  OF  VISCOSITY  (CP) 

C 

C  ‘  SUBSCRIPTS  AND/OR  PRE-SCRIPTS 
c  Z,C  ORIGINAL 

C  s  SATLRAT  ION  
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C _ X_l v _ n  IREC  1  IONS _ _ _ 

C  AT(  )  ELEMENTS  GF  TRIDIAGONAL  MATRIX 

C  6  T {  )  *  OF  THE  SET  OF  SIMULTANEOUS  EQUATIONS 

C  C  T  I  )  * 

C  C R (  )  RIGHT  HAND  SIDE  OF  EQUATICNS 

C  GT (  )  INTERMEDIATE  VARIABLES  USED  IN  ADIP 

C _ \n  T  (  ) _  INTERMEDIATE  VARIABLES  USED  IN  ADIP _ 

C 

C 

COMMON  I  ,PX(21,21)  »PY(2It21)  ,XKH(21  ,21) , VKH (  2  l  ,21  ) ,XM 
11 { 21, 21  )  t YMU 

S(21*21)*FIH{21,2i),Q(2l,21)*AT(21),BT(21)»CT(21)»DR(21 
_ 1  )  ,  Vi  T  (  2  1  )  ,  G  T  ( _ _ _ 

S21),  IR,  IRNfIRP,  IRC,  IRCP,IQ»  IGM,  IQP,  IQPP, I QM 1 , JR , JRM , JR 
IP , JRC , JQ , JQM 

S , JGP , JT  ,  J  TM  ,  I  T ,  I  TM ,  ITMM , I  TO, JB , JE , BE  TA,B1  ,B2 , TO A 
DIMENSION  TIM(5» 99) ,  ACT (5,99 ) ,CAL ( 5 , 59} f RAT  1(5,99) 

1  FORMAT ( 1 H  1 , 2  H  ) 

2  FORMAT (  1HL,  1  OX  ,  3  8F  IR  IQ  IT  JR  JQ  JT  DX(FT) 

1  ) 

3  FORMAT ( ihK,17X,46HA  B1  B2 

ID  E  ) 

A  FORMA T (  1FL,  1  AX,  58FSMU  ZMU  PS  PC  6S 

1  BC  COMP 

CRESS  PERM) _ _ 

5  FORM A  T ( 1H J , 10X , 2 F7 . 3, 2 F8. 1 , 2F8. 4 , E 10 . 3 , F6 . 3 ) 

6  FORMAT (  1FJ,1GX,5E12.4  ) 

7  FORMAT ( 1HK,  18X, 5  1FMATRIX  GF  PRESSURE  IN  GIL  RESERVOIR, 
11PSIA  ).  BY  A 

10  IP  ) 

8  FORMAT  (  1HL  ,2H  )  _  __  _  _ 

9  FORMAT (  1HK»35X,6HTIME  =,F6.0,5H  DAYS) 

1C  FORMAT (  1FK,32X,  12H( TIME  STEP  =,F6.2,6H  CAYS)) 

11  FORMAT!  1HL,9X,66H_  J  1  2  3__  4  5  6 

1  7  8 

C  5  1C  11) 

_  12  FORMAT  (  1H  ,5X  ,_2F  I  )  _ _ 

13  FORM  A T ( 1H L  ,  29X » 3 3HPHI *H  MATRIX  (FT)  -  OIL  RESERVOIR) 

14  FORMAT (  1FL,27X,37FK*H  MATRIX  (DARCY-FT)  -  OIL  RESERVOI 
IR  ) 

15  F  C  R  M A  T  (  1  H  J  ,  1 0  X , 6  I  4 , F  8  . 0  ) 

16  FORMAT (  1HL  ,  1 2X  ,  38HPROCUCT ION  RATES  OF  WELLS  (S.T.B./DA 
IV)) 

17  FORMAT (  IFK  ,  12X,66FQ(4 ,4  )  G ( 7 , 4  )  U (  10,4)  G ( 1 3 , 4 )  Q( 
14,7)  G ( 7 , 7  ) 

C  Q(  10 , 7J _ C  (  1  3,7)) _ _ _ 

18  FORM A T ( 1HK » 12X , 56HQ ( 1 6 , 7 )  G (  1 9 , 7  )  Q ( 1 0 *  1 0 )  Q 1 1 3 , 1 0 ) 
1  0(16,10) 

CG (  15 ,  1C  )  ) _ 

1  5  F 0  R  M  AT (1X,2F7.2,2FS.1,2F8.4,E1C.3,F6.3) 

20  FORMAT  (  1H2,3F(  ) 

21  FORMAT!  IX, 614,  F  8 .0  )  _ _  _ _ _ _ _ 

22  FORMAT ( 1HJ,12X, F5.0,F 8*0,2F9.0,2F8.G,2F9.0) 

2  3  FORMAT (  1HJ,12X,F6.0,F9*0,4F1G«0) 

24  FORMA  T (  1HS  ,5X , 2F  1)  
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25  FORMAT  (  1  f~  K  y  2  H  ) 

2  6  FORMAT  (  1H  »  9  X  » 1 2  »  8F6.  L) 

27  FORMAT (  IFJ  ,2H  ) 

28  FCRKATIJLH  ,9X,  12, 11F6.1  ) 

2  9  FCRMAT(1H3,39X,8FT  AB Lfc  A- ,  12) 

3C  F  0  R  M:  A  T  (  1 H  , 9 X ,  I  2 ,  1  8X , 8F 6. 1 ) 

31  FORMAT!  IX,  1 2 F6 . 3 / 5 P 6 . 3  ) _  _ 

33  FORMAT (  IX , 12F6.3/9F6. 3  ) 

3 A  FORMAT  {  1F2,9X»6FCCNTD. ,22X,8FTABLE  A- ,  12) 

3  5  FORMAT ( IX , 12F6. 3/3F6. 3  )  _ _ 

36  F  CRN  AT! 1 H  L  » 1  5  X  » 2  6  F  I N I  T  I  A  L  RESERVOIR  PRESSURE , 9X , 3H  PG, 
1F9.2, 5X, 

_ C  REPS  I  A  ) 

37  FORMAT (  1HJ,  15X,26FSATURAT  ION  PRESSURE  OF  GIL,9X,3H  PS, 
1F9.2  »5X, 

C  AFPS  I  A  ) 

38  FORMA T ( IF J , 1 5X , 2 9HFGRMAT IOK  VOLUME  FACTOR  AT  P0,6X, 3H 
1BC,F  12.5  ) 

39  FORMAT (  1FJ,  15X,29FFORMATICN  VOLUME  F ACTOR  AT  PS  ,6X,  3H 

1BS,F12.5  ) 

AC  FORMAT!  1H  ,9X,I2,8F6.0) 

A  1  FORMAT ( 1H  ,9X,  12  ,  1  1F6.0) 

A  2  FORMAT!  1H  ,  9 X ,  1 2  ,  1 8 X , 8 F 6 . C  ) 

A3  FORM  AT t  IX  ,  12F6.2/5F6. 2  ) 

AA  FORMAT ( IX,  12F6.2/9F6. 2  )  _  _  _ 

A  5  FORMAT (  IX  ,  12F6.2/3F6. 2  ) 

A 8  FORMAT!  1FA,  12,  IX  ,  IAF9.0) 

A 9  FORMAT!  I F  =  ,  2  7 X ,  3 6P P Y (  10,7)  IS  UESS  TEAM  SATN.  PRESSURE 

1  ) 

5C  FORMAT! 1 X  ,  F 7 . 2 , 2 F 7 . 0 , F5 . 2  ) 

51  FORMAT (  IHL , I2X  ,2AFDT  PRINT  FCAY  FACTOR  ) _ 

52  FORMAT!  IX,  13) 

5  A  FORMAT!  IH3  , 2AX , A2HCUMULAT  I VE  PRODUCTION  (STOCK  TANK  B 
1ARRELS))  __  _ _ ■ 

55  FORMAT (  1EK , 24X , 6HACTU AL ,  E  12. A,  AX,  1CFCALCUL A  TED ,  E12.A 
1  ) 

56  FORM  A  T (  1H J ,  8X,3F7.C,F6. 2±  _  _ _ 

57  FORMAT (  INK ,  12X,65HTW0  DIMENSIONAL  MODEL  OF  A  SLIGHTLY 
1CCMPRESS  IBLE 

C  LIGUIC  RESERVOIR) 

58  FORMAT  (  1 H  L  ,  1  5  X  ,3  8  F  dT G  IT  A  L  SIMULATION  OF  AN  OIL  RLSERVO 
1  IR  ) 

59  FORMAT (  1H9 , 3H  ) 

3 A  OF C  R MAT (1 F  J , I  5  X , 1 5F VISCOSITY  AT  PO  ,  2  C X , 3H  Z  MU  ,  F  1 2 . 5 , 2  X  ,  2 

1FCP  ) 

3 A  1  FORMAT!  1 H J  ,  1  5X  ,  1 5F V  I  SCOS I T Y  AT  P S , 2 0 X , 3H S MU , F 1 2 . 5 , 2 X , 2 
1 F  CP  ) 

3 A 2  FORMAT! 1HJ,15X, 15 H COMPRESSIBILITY, 2 0X,3H  C  ,  c  1 6 . 5 , 2  X  ,  6 
IF  1/PS  1A  ) 

2  A  3  FORMAT  (  1FK,A0X,9HT ABLE  A- 3 ) 

3 A  A  FORMAT {  1F2,37X,8F TABLE  A- ,  I  2 ) 

3-45  FORMAT!  IHL ,  28X » 35HPR0DUCT  ION  PATTERN  OF  OIL  RESERVOIR) 
3 A 6  FORMAT  ! IHL, 27Xt 16HL0C AT  ION  OF  WELL  , 5X, iOHPROOUCT ION ) 

3 A 7  FORMAT! 1HS,31X,7H  I  ,  J  , 1CX,17HU(I,J)  S.T.6./DAY) 

3 A 8  FORMAT!  1HJ,31X,  12,  IA,  13X,F6.0)  _ __  _____ . 
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_ i  e  b l- 1 _ 

1662=2 

I6C=5 

C . .  PARAMETERS  CF  RESERVOIR  GEOMETRY,  CX=DY 

RE AC  (5,21)  IR, IQ, if, JR, JQ, JT,DX 
REAC(5»19)  SMU,ZMU,PS , PC , B S , BO, C , PERM 
_ _ C=(6S-eO)*2. 0 / (  ( BS  +  BC  )  * { PC-PS )  ) 

C  1  6  6  L  =  5.6146  C  .  F  T /,  1  CARCY=  6.327  SQ.FT.*CP/{ DAY*PS 

1  I  ) 

J  =  5.6146/6.127  __ 

TCA=2 .C*A 

e  i  =  { hs*pc-bc*ps )/( po-ps ) 

_ 6  2=  (  6C-BS  )  /  (  PC-PS  ) _ _ 

PCPS= ( PC  +  PS  )/2.C 
6 R  =  6  i+82*PCPS 

__ _ C=  ( SMU»PO-ZMU»PS  )  /  (  PO-PS)  ______  ___________ 

E  =  ( ZMC-SMt  )/( ?.C* { PC-PS )  ) 

IRM  =  I  R-  1 

_ I  R  P  =  I  R  +  1 _  _ _ 

I  R  C  =  I R  +  2 
I cP= I Q  +  1 
_ ICM=  IQ-1 

i  t  m  =  i  r  - 1 

JRP  =  JR+  1 

_ JRM  =  JR-1 _ _ _ 

JRC= JR+2 
JCP  =  JQ+  l 
_____  JTM  =  J  T- 1 

JCM=JC~1 
ICM  1  =  IGF  -  1 

ICPP=  ICP-U _ _ 

I  T M M  =  I  T F-  1 
I T  C=  I  1-2 

_ _ I  R  C  P  =  I  R  C  +  1 

JTC=JT-2 
JTMM= JT-2 

_ JCC  = JC  +  2 _ _ 

C  PFI*F  (FT)  CATA 

REAC(5,43)  (  (  F  I F  (  I  ,  J  )  ,1  =  1,  IG) ,J=1,JRM) 

R  E  A  C ( 5 , 4  4  )  (<FIh(I,J),I  =  ltIT),J  =  JR,JC) 

RE AD (5,45  >  ( { F  IF ( I , J } , I  =  1 R , IT ) , J= JQP , JT ) 
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801  VI=VI4F1H( I, J) 

CC  8 C  3  J= JRP , JQ8 
CC  8 C 3  1  =  2,  ITM 
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_ REAC(5,3i  )  (  (  P  Y  (  I  ,  J  ),  1  =  1,  IQ)  , J= 1 , JR 8  ) _ _ 

RE AC (5, 33)  (  (PY(  I,J),  1  =  1,  IT)  ,J  =  JR,JQ) 

R  E AC ( 5 , 3  5 )  (  ( P  Y (  I  ,  J  )  ,  I  =  IR,IT),J  =  JQP,JT) 

C  CALCULATE  H ,  K*H  USING  Q,PX  MEMORIES  RESPY,,  K=CGNST AN 

IT 
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_ CC_  125  1=  IR  ,  IT _ _ _ 

C (  1 1  J ) =C  •  0 
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G  (  4 , 4  )=75.C*FAC TGR 
0(7,4  )  =75  .C*FAC  TOR 
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3CCC  CONTINUE 
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T  =  XKF(  Ml  ♦  J  )  /  X  P  L  (  I  +  lfJ) 

L  =  B  1  +  B2  *  P  X  (  I  ,  J  ) 

CR(J)={R~T)*PX(I,J)+T*PX(I+1,J)-TCA*  L*U  (  I  ,  J  ) _ 
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CALL  TCP  A  S  V 
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R=fcETA*FIF(IfJ) 
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_ C  T  (  J  )=-YKF  (  I  ,  J  )  /YF'U(  1  ,  J  ) _ _  _ 

AT(J)=R— BT(J)— CT (J) 

S  =  XK  F  (  I f J  )/XHU(  I  ,  J  ) 

T  =  XKF  (  1  +  1,  J)/XFl{  I  +  1  ,  J  ) 

CR( J  )=$*PX(  1-1  ,  J  )  +  ( R-S-T) *PX (  I  t J)  +  T*PX( I  +  1 , J J-TGA*U*Q { 
1I,J)-BT(J)*P 
_  SY  (  I  ♦  J  +  1  L 

^  T ( J  )  =  A  T ( J  )  —  C T ( J  )*6T<  J-l)  /  VvT  (  J-l ) 

CT(J)=(CR(  J)-CT(  J)*GT(  J-l  )  >  /  Vs  T  C  J) 

CALL  TCMASY _ _ _ _ _ _ _ ______ _ 

J  =  J  G  P 

R=BETA*F  IP {  l  ,  J  ) 

6T(J)=-YKP(I,J-H)/YFU(I,J  +  1) _ _ _ 

C  T ( J  )  =- YKF (  I  t  J ) /YFU( I , J ) 

A  T  (  J  )=R-BT( J)-CT ( J) 

_  T  =  XKP  (  1  +  1  ,  J  ) /XFl  (  1  +  1,  J  ) 

l=Bl+B2*PX( I , J ) 

CR ( J  )  =  (R-T  )*PX ( I , J  )+T*PX(  1  +  1 , J)-TOA*l*Q( I , J }-CT ( J)*PY( 
_ 1  I , J-  1  ) _ 

k  T  (  J  )  =  A  T  (  J  ) 

CT ( J  )  =DR ( J ) /WT ( J ) 

_ IFC  JTKF.IT.  JQD)  GC  TO  36L  _ _ ______ _ 

CC  3 6  C  J* JGD* JTPM 
R  =  BET A*F  IF (  I  , J  ) 

e  T  (  J  )  =- YKF  (  I  ,  J  +  I  )  /YFU  (  I  ,  J  +  n _ _ 

C  T  (  J  )  =- YKF  (  I  ,  J  )/YFU(  I  »  J) 

AT { J  >  =  R —  B  7 ( J  ) -C  T { J ) 

T  =  XKF  (  1  +  1  ,  J  )  /XFL  (  1  +  1,  J  ) 

l  =  Bl  +  B2*PXU,J) 

CR(J)  =  (R-T)*PX(  I  ,  J  )  +T  $ P X  (  1  +  1,  J)-TCA*l*Q( 1  ,  J) 

_ FJJ  J  )  =  A T  (  J  )-CT  (  J  )  *BT  (  J*  l )  /J\ T  (  JZJJ  _ 

36C  GT ( J )  =  <  CR { J ) — C T ( J  )*GT ( J-l  )  ) / U T ( J ) 

361  J  =  J  T  F 

R  =  B E 1 A*F I P ( I »  J  ) 

C  T  (  J  )  =  -  Y  K  P  (  I  ,  J  )  /  Y  F  U  (  I  »  J  ) 

AT ( J  )  =R-C  T ( J  ) 

_ T  =  X  K  F  (  14  1  ,  J  )  /XFL  (  1  +  1  ,JJ _ 

L=B1+B2*PX{I»J) 

CR(J)=(R-T)*PX(I,J)+T*PX( I + L ,  J)-TOA*t*Q( I , J ) 

V>T  (  J  )=AT  (  J  )-CT  {  J  )  *BT  {  J-  1  )  /  FT  {  J-  1  ) 

GT< J)*(DR( J)-CT( J)*GT( J-l))/kT< J) 

JB=JG+2 

JE  =  J  T-2 _ 

CALL  TCP  A  S  Y 
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STOP 
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SUBROUTINE  TRICIV 


C 

C 

C _ _  TRICIV  CALCULATES  THE  TRIDIAGONAL  ELEMENTS  CF  THE  CCEF 

IF  IC  IENT 

C  MATRIX  AND  THE  RIGHT  HAND  SIDE  CF  EOLATIONS,  TRANSFORM 

_ IS  TEEM _ _ _ 

C  INTO  INTERMEDIATE  VARIABLES 

C 

COMMON  I  ,PX(2 l,21),PY(21,21),XKH(21i21), YKH 1 2 1 , 21 ) , XM 
1 L  (  2 1  ,  2  1  )  ,  Y  M  U 

S(21»21),FlF(21»21)»Q(21,2l)*AT(2l)»BT(21)»CT(2l)*OR(21 
_ 1 ) , WT ( 21  )  tGT ( _ 

S2 1 ) , IR, JRM , IRP,  IRO, IRCP, IQ, IGM,  IQP , ICPP, IQM1 , JR, JRM, JR 
IP , JRC  ,  JO,  JOM 

_ S, JCP,  JT ,  JTM  ,  IT  ,  ITM,  I  TMM, I T D , JB , JE , BE T A , B 1 , B2 , TO A _ 

J  =  JB-  I 

R  =  BET A*F  IF  (  I ,  J  ) 

_ BT(J)=-YKF(  I,J+l)/YMU(  I  ,  J  +  1  ) _ 

ATI J  )  =  R-fi  T  I  J  ) 

S  =  XK  F (  I  , J  )  /XMU (  I , J ) 

T  =  X  K  F  (  I  +  l  ,  J  )  /  X  M  L  (  I  +  1 ,  J  )  . . , . 

L=B1+B2*PX(  I  , J  ) 

CR(J)  =  S*PX(  I-l,J)4(R-S-T)*PX(It J)+T*PX(  I  + 1 , J ) -TGA*U*Q ( 
_ 1  I  .  J  ) _ 

NT  I  J  )  = A  T ( J ) 

GT I J  )=DR I J  )  / W T ( J  ) 

. . . _ . CC  3  C  C  =  ,  JE  . . 

R  =  BETA*F  I F  I  I  ,  J  ) 

BT(J)=-YKF(I,J+1)/YMIJ{  I  ,  J  +  1 ) 

_ CT ( J  )  =  —  Y  K  F (  I  , J  )  / YMU I  I  ,  J  ) _ _ 

AT ( J  )  =R-BT ( J  )  —  C T ( J  ) 

S  =  XK  F (  I  , J  )  /XMUI  I  ,  J  ) 

T  =  XK F (  I  +  I  ,  J  )  /XML  I  I  +  1 , J  ) 

L=B1+B2*PX ( I , J ) 

CR(J)=S*PX(I-l,J)  +  (R-S-T)*PX(I,J)-t-T*PX(I  +  l, J)-TCA*U*Q( 
1  I  ,  J  ) _ _ 

NT I J  )  =  AT  I J  )-CT ( J  )*BT( J- 1 ) /WT( J- 1 ) 

GT(  J  )  =  (DR(  J)~CT(  J  )  ^GT  (  J- 1  )  )/VvT(  J) 

3CG  CONTINUE  _ _ _ _ _ _ _ _ _ 

J  =  JE4  l 

R=BETA*F  IF (  I  , J  ) 

CT ( J  )  =- Y K F  I  I  , J  )  / YMU ( I  ,  J  ) _  _ 

AT ( J  )  =R— C T ( J ) 

CR(j)  =  S*PX(I-l,J)  +  (R-S-T)*PX(I,J)+T*PX(  I  +  1 , J ) - TO A*U *Q I 

II,  J)  _ _ 

Vs  T  (  J  )  =  A  T  (  J  )-C  T  (  J  )  *bT  I  J-  1  )  /  WT  (  J-l ) 

GT ( J  )  =  (CR( J  )— CT ( J )*GT I J-i )  ) /NT( J) 

RETURN 


END 
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SUBROUTINE  TON1 A  S  V 


C 

C 

C__  This  SUBROUTINE  SOLVES  A  SET  GE  SIMULTANEOUS  EQUATIONS 
1  INVOLVING 

C  TRICIAGGNAL  COEFFICIENT  MATRIX  BY  THCMAS  METHOD 

C _ 

CCMMCN  I , PX ( 2 1 , 2 1 ) , P  Y ( 2  I , 2  I ) , XKH ( 2 1 , 2  I ) , YKH ( 2  I , 2  I ) , XM 
IL ( 21 ,21 ) *  YML 

S<21«21),FIH(21t21)»Q<21,21),AT(21)tBT<21)iCT{21),DR(21 
1 )  t  h  T  (  2  1  )  »  G  T  ( 

S21 ) , IR, IRN, IRP, IRC, IRCP, IQ, IQM, IQP, ICPP, IQM1, JR, JRM, JR 
_ IF  ,  JRl  ,  JG  ,  JGN _ _ _ 

S»JCP,JT ,JTM,  IT ,  ITN ,  ITMM, ITD,JB,JE,BETA,B1 ,B2,TOA 
JEB2= JE-JE+2 
PY(  I  ,  J  E  +  1 I  =  G  T  ( J  E  +  1 ) 

CC  3  C  3  J  Z  =  1 , J  E  fi 2 
J= JE+l-JZ 

3C3  P  Y (  1  »  J  )  =  G  T ( J )  —  P  Y (  I  ,  J+  1)*BT ( J ) / W  T ( J) _ 


RETURN 
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C _ APPENDIX  D  ANNX  2B 

C 

c 

C  TWC-CIMENS TONAL  MODEL  C F  AN  CIL  RESERVOIR  _ 

C  SOLVED  BY  ACEP 

C 

C _ 

C  THIS  PROGRAM  PREDICTS  THE  BEHAVIOR  CF  A  SINGLE  PHASE  * 

C  SLIGHTLY  COMPRESSIBLE,  CIL  RESERVOIR  AS  OIL  IS  W  1  TH- 

C  DRAWN  AT  A  KNOWN  RATE  FROM  FOURTEEN  ARBITRARILY 

C  LCCATEC  WELLS,  THE  RESERVOIR  CONSIDERED  IS  CF  IRREG- 

C  LLAR  PCLYC-CNAL  SHAPE  WITH  ZERG  NASS  FLUX  ACROSS  THE 

JL _ BCLNDARY  , _  _ 

C  THE  RESERVOIR  IS  SIMULATED  BY  A  TWO-DIMENSIONAL 

C  MATHEMATICAL  MCCEL  AND  THE  RESULTING  PARTIAL 

C  DIFFERENTIAL  EQUATION  IS  SOLVED  BY  ACEP. 

C  VISCOSITY  AT  P(N*DT)  IS  USED  TO  CALCULATE  P(IN+1)*DT) 

C  THE  PRCGRAM  IS  GENERAL  AND  IS  DESIGNED  TO  COMPUTE 

C _ PRESSURE  DISTRIBUTION  IN  THE  RESERVOIR  AND  MATERIAL _ 

C  BALANCE  AT  ANY  REQUIRED  TIME  AND  FOR  ANY  KNOWN 

C  PRGCLCT ION  KATE. 

C  _ _ _ _ ______ __ _ _ _ _ _ 

CO.  V-  x».  x*'  *4'  X  A  ^  J,  >1. 

0  NOMENCLATURE 

H  V»  >*'  V'  x*.  xK*  xfcf  >*. 

^  -V  JF*  T  V  'C-  Y  Y  Y  Y  Y 

C 

C  A  RATIC  OF  CONVERSION  CONSTANTS 

C  B _  FORMATION  VOLUME  FACTOR,  BS,BO  AT  PS, PC 

C  B1,B2  CONSTANTS  IN  B  VS  P  RELATION 

C  C  COMPRESSIBILITY  OF  LIQUID  (1/PSIA) 

C  __  C , E  _  CONSTANTS  IN  VISCOSITY-PRESSURE  RELATICN  _ 

C  CT  TIME  STEP  (DAYS)  PER  SWEEP 

C  CX  =DY  =  SPACE  GRID  SIZE  (FT) 

C  _ FACTOR  CHANGES  PRODUCTION  RATES  CF  WELLS 

C  F CAY  REAL  TIME  FOR  WHICH  RESERVOIR  HISTORY  IS 

C  CESIREC(CAYS) 

C _ ML _ VISCOSITY  (CP)  ,  USED  WITH  PRE-SCRIPTS _ 

C  NSET  NUMBER  OF  DATA  SET 

C  NT  NUMBER  OF  DATA  SETS  USED 

C  F  ( _ | _ )_  PRESSURE  (  P  S  I  A  )  ,  USED  AS  PS,PU 

C  PERM  PERMEABILITY  (DARCY) 

C  PRINT  TIME  INTERVAL  BETWEEN  CONSECUTIVE  PRINTOUTS 

C _ FX (  ,  ) _ PRESSURE  AFTER  FORWARD  SWEEP  (PSIA) _ 

C  FY(  ,  )  PRESSURE  AFTER  REVERSE  SWEEP  (PSIA) 

C  C(  ,  )  PRODUCTION  RATE  CF  A  WELL  (S.T.b./DAY) 

C  _____  TIME  REAL  TIME  EUR  WHICH  RESERVOIR  HISTORY  HAS 

C  B  EE N  COMP U  T ED  (DAYS) 

C  X  KE (  ,  )  X-D  IRECT IONAL  AVERAGE  OF  K*H ( DARC Y-FT ) 

C  _  YKH (  ,  J  Y-D  IRECT IONAL  AVERAGE  CF  K*H ( D ARC Y-F T )  _ 

C  X  MU (  ",  )  X-D  IRECT IONAL  AVERAGE  OF  VISCOSITY  (CP) 

C  Y  M  L (  ,  )  Y-D  IRECT IONAL  AVERAGE  OF  VISCOSITY  (CP) 

C  _  . _  __  . 

C  SUBSCRIPTS  AND/CR  PRE-SCRIPTS 

c  Z,C  ORIGINAL 

c  S  SATURATION 


1  ,  i  I  I  I  -  .  I 

S  !A  Y'l  H7J32  3 

3 

,  j2<  19  iJ  ).■  I  2  |  J  *  I  7  -U'l  •  r  7  i  H  '  0  '  l  2  M I 

-•■11,  21  .1  I  V  -  J  i  t  I J  i  I  1  i.)  VJiniJ1  3 

Y  J  i  ‘  T  1  A  -I  i  I  '  v"  !  ,  A  1 

-  :  •  •  !  -  • 

-ill  2.  <V  ..  .  H  2  2  A-  )y  i\  11  A  -V!.\  2  I A ,  JYjOS  WftJJ 

,1 

J ;  ,  17  if-  ...  !  Y  •  J  I  1  V  |  V  •  i->  V,  -i  (T 

JAIiH.,9  I  I J  12  3  H  3HI  !/A  J33  *  I A  31  T  A  j  i  T  A  /  3 

Y  3  3  V  J  2  2  1  -IT  A  J  7  J  M  T  i  » I 

(1  j  *  (  I  ♦  )>S  3IAJJ3JA3  01  0  32U  2  1  (T  */)s  I  YT120321Y 

I  .  .  i  i  ■  it 

J..I‘  T  A  J.  .  fll  V  -  32  I  I  III.  »  I  T  I  I  -in  l?2_’5»9  3 

/*3/T  Y  A  HjT  J  71 A  BM  IT  Q-i  5^1  3351  YUA  TA  30/iAJAT  3 

.  3  T  AH  /I0IT3J33H9  3 

3 

>  $  -,■«  *  * 

3  HOT  A  J.)  J  " 

..  ?  ■?  v  .■  *  •  ;•  n 

2t/AT2i7)3  M0I2#3VH03  TO  OITAfl  A 

.  ,  H  T  ,  2-;  ,  •  ...  1  T  . .  •  :  V  1  I  . 

i i  :  .  ;a,  j 

.  :  '  \  :  I  1181 2 

;  T  J  I  .  I ,  .  - .  I  ■  3  I  V  I  T  I 

;  •  i  i  it  i 

(II)  ilia  3 1 510  33AS2=Y  )=  XJ  3 

2JJTW  TO  2  iTA5t  /lOlTDOCUSI  2;i,/iAlO  5  T  3  A  T  3 

21  YH0121H  5)  1  fi  V  H  J  2  J  H  OIH*  HOT  T^IT  JA35  Y  A  3  1 

(2YA:i)33HI  233  3 

2T102-.5'.  HI.  1 32  J  ,  CO)  YT  12  3  2  IV 

■ 

032  0  2132  AT  i  3  TO  513T  3)\A 
j'  i,  :S  .  Y  .2  1,  (  I  2M  )  i  • ,  2  2  3  5  :  (  ,  )  T 

( Y 3 HAQ  )  Y  T  I  J  I  t  A  )  T  Ml  M  MH3T  3 

i  T  T  '  J3WT38  JAV83THI  3HIT  I  r  -• 

(  1  .  ■  )  s  J3. ,2  I  Au  H .  i  i  5i  i  f  ,  i  J2  2  IMS  {  t  )  >.  q 

(.179)  'll  l.,1 7  12HJV.H  5  ]  !  T .  •  ,  12  MIS  (  ,  )  Y  T 

(  Y  A  i  \ ,  .  T  .  )  jjj„  /  13  /••II.  i  i  (  ,  )  J 

1 A •  i  Y  I  i  '  !  J  IH  0 1  .i  I  I  1  I  i  3  1  T 

(  2  YA  i )  ;  I  i ;  -  •  Jr: 

,  -  :  i  ,  1  -  (  ,  )  HHX 

i  1  -  .  J  )  f  t  .  j  !  ;  :  - 1  I  ,  ) 

(  )  •  i  I  •  ..  .  i  v  i  i ■  ,  t  ./.■  j  i  ;  i  - (,)••' 

A  J  M  ’  -  i  »  ) 

7  I  J.  -  h  \  .2  r  m  i  >i  o,:  02 

JA,  I  jIHO 


C  X,Y  DIRECTIONS 


C  IPENS  ICN  PX(21»21)»PY(21,21), XKH ( 21 ,2  L ) , YKH (21 ,21  )  *XM 
11(21,21) 

C  IREN  S  ICN  YMU(21,21)»FIH(21»21)»Q(2l»2l) 

C  IPENS ION  TIM(5,99)  ,ACT(5,99) ,CAL(5*99)  ,RATI(5,99) 

1  FCRPAT ( 1H  1 , 2H  )  _  _ 

2  FCRMT  (  1HL  *  10X*  38H  IR  IQ  IT  JR  JQ  J  T  OX  (FT) 

1  ) 

3  FCRPAT (  1HK  ,  17X t 46FA  B1  82 

1C  E  ) 

4  FCRP AT (  lFl  ,  14X, 58FSPU  ZP U  PS  PC  BS 

JL_  BC  CCPP _ _  _  _  _____ 

CRESS  PERP  ) 

5  FCRPAT  (  IHJ,ICX,2F7.3,2F8.  1,2F8.4,E1G.3»F6.3) 

6  F  C  R  (•  AT  {  1HJ,  10X , 5E  12  *4  ) 

7  FORMAT ( 1HL * 2H  ) 

8  FORMAT  (  lFiK,18X»51HMATRIX  OF  PRESSURE  IN  OIL  RESERVOIR, 

1  (  PS  I  A  )  .  BY  A _ _  _ 

1CEP  ) 

9  FCRPAT(  1HK,35X,6HTIPE  =,F6.C,5H  DAYS) 

1C  FCRPAT {  1HK»32X,12F(TIPB  STEP  =,F6.2,6H  DAYS)) 

11  FORMAT!  1  Fi  L ,  9  X ,  6  6  H  J  l  2  3  4  5  6 

1  7  8 

C  9  1C  ID _ 

12  FCRPAT (  1 H  ,  9  X , 2  F  I  ) 

13  FCRPAT (  1FL , 3 7X ,  17HPHI *H  MATRIX  (FT)) 

14  FORMAT ( 1HL,35X,21HK*H  MATRIX  (DARCY-FT)) 

15  FCRP A T ( IF J , 1CX , 6 14 ,F8 .0 ) 

16  FCRPAT(  IHL,  1  2X  ,  3 8HPR0CUCT  I  ON  RATES  OF  toELLS  (S.T.B./CA 

IV  )  ) _ 

17  FCRPAT ( 1FK,  12X,66FQ(4, 4 )  Q(7,4)  0(10,4)  Q(13,4)  Q( 

14,7)  G  (  7  ,7  ) 

C  U1C,7)  Q (  1  3 , 7  )  ) 

18  FCRP AT (  1HK ,  12X , 56HC ( 16,7)  C(19,7)  0 (  1C,  10  )  G(  13, 10) 

1  0(16,10 

CCJ  19  ,  1C  J  ) 

1  9  FCRP  A T (  IX,  2F7.3*2F8.1,2F8.4,E10.3,F6.3) 

20  FORMAT (  1H2, 3H  ) 

21  FORMAT (IX *614* F8»0) 

22  FCRPAT { 1 H  J  *  1 2  X » F  5  . 0  * F 8 . 0 *  2 F9 . 0  *  2F8 . 0  * 2F9 . 0 ) 

23  FCRPAT  (  iFiJ,  1?X,F6.0»F9.0,4F10.0  ) 

24  FCRP  A  T  (  1HS  ,  9j<.»  2JF  I  ) 

25  FCRMAT(IHK*2H  ) 

26  FCRPAT (  IH  ,9X,  12  ,8F6.  1  ) 

27  FCRPAT  (  1  FI  J  ,  2  FI  ) 

28  FCRPAT (IF  ,  9 X ,  I  2  ,  11  F6 . 1  ) 

29  FCRPAT  (  1H3,39X,8F!TABLE  A-,I2) 

30  FCRPAT (  1H  ,  9 X ,  I  2  ,  1 8 X , 8F 6 .  1 ) 

3  IF CRP A  T (  1  X,  12F6.3/5F6. 3 ) 

33  FCRPAT (  IX  ,  12F6.3/9F6. 3 ) 

34  FORMAT ( 1H2  *  9X*  6HC0NTD «*22X*8HTABLE  A-,I2)  _ 

35  FCRPAT (  IX  ,  12F6. 3/3F6.  3 ) 

36  FCRPATt  1HL,I5X,26HINITIAL  RESERVOIR  PRESSURE , 9X , 3H  PC, 

1F9.2,5X,    
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37  FORMAT ( IHJ, 1 5X  ,  2 6HS AT UR AT  I  ON  PRESSURE  OF  GIL,9X,3H  PS, 
1F9.2,5X, 

C  AhPS  I  A  ) 

38  FORMAT ( 1 H  J  ,  1 5  X  ,  2  9  h FOR M  A T 10 N  VOLUME  FACTOR  AT  P0,6~X,3H 
1EC,F12.5) 

39  FORMAT ( IHJ,  1  9X , 2 9F FOR M A TICN  VOLUME  FACTOR  AT  PS,6X,3H 

IBS, F 1 2.5  ) 

AC  FORMAT (  IH  ,9X,  12 ,8F6.C  ) 

A  1  FORMA T  (  1 H  , 9  X, 12 ,  1 1F6 .0 ) 

A 2  FORMAT ( 1 H  ,  9  X ,  I  2  ,  1 8 X , 8 F 6 . G  ) 

A3  FORMAT ( LX  ,  I2F6.2/5F6. 2  ) 

_ AA  FORMAT ( IX,  12F6.2/9F6.2)  _____  _ 

A  5  FORMAT (  IX,  I2F6.2/3F6.2) 

A  7  FORMAT ( 1HK , 129FLT  G(A,A)  0(7,  A)  y(10,A)  G(13,A) 

1  CM  A  »  7  ) 

SC  (  7 , 7  )  G (  1 C , 7  )  G (  13,7)  Q  (  1 6,7)  C(19,7)  G(  10,10)  G( 

113,10  G  (  16, 

SIC  )  G  (  19,  1C  )  ) _  _ 

A 8  FORMAT!  1HA,  12,  IX,  1AF9.0) 

A 9  FORMAT (  1H=  ,27X,  36HPY(  10,7  )  IS  LESS  TEAM  S A T N .  PRESSURE 
1 ) _ _ _ _ 

50  F  CRM A T (  1X,F7.2,2F7*C, F5.2) 

51  FORMAT {  1HL,  12X,2AFCT  PRINT  FCAV  FACTOR) 

_ 52  FORMAT (  IX  ,  13  ) _ 

5 A  FORMAT (  1H3  ,  2 A  X  ,  A 2HCUMUL A T  I  V E  PRODUCTION  (STOCK  TANK  6 
1ARRELS  )  ) 

55  FORMAT ( 1HK ,24X , 6HACTUAL ,  £12.A,AX,1CFCALCULATEP,  E12.A 
1) 

56  FORMAT (  IHJ,  8X , 3 F 7 . C , F 6 . 2 ) 

57  FORM AJ (  1HK ,  12 X  ,  6  5FTWO  DIMENS  ICNAL  MODEL OF  A  SLIGHTLY 

1CCMPRESS  IDLE 
C  LIGLIC  RESERVOIR) 

58  FORMAT  (  1HL  ,  15X, 38FDIG  ITAL  SIMULATION  OF  AN  OIL  RESERVO 
HR) 

59  FORMAT (  1F9 , 3H  ) 

_ 3AC  FORMAT (  IHJ,  15X  ,  15FVISCGSITY  AT  PQ,2CX, 3HZMU,F12. 5,2X,2 

1FCP) 

3 A  1  FGRMAT (  IHJ, 15X, I5FVISC0SI TV  AT  P S , 20 X , 3H S MU , F  1 2 . 5 , 2 X , 2 
1FCP  ) 

3  A  2  FORMA  T  (  IHJ,  1  5  X  ,  1 5HC0MPRESS  IB  I  UTY,20X,3H  C,E16.5, 2X,6 
IF  1/PS  I  A  ) 

3  A  3  FORMA T (  1 H K  ,  A 0 X , 9h  TA BLE  A- 3 ) _ 

3 A  A  F C  R  M  A  T ( 1 H 2, 3  7  X , r  F  T  A  8  L  E  A- ,  1 2  ) 

3 A 5  FORMA  T ( 1HL,28X,35HPR0CUCTIGN  PATTERN  OF  GIL  RESERVOIR) 
3 A 6  FORMAT ( 1HL,27X, 16HL0CAT ION  OF  WELL , 5X , 10HPR0DUCT ION ) 

3 A  7  FORMAT ( 1HS,31X,7H  1  ,  J  ,10X, 17HQ(I ,J)  S. T.B. /DAY) 

3  A  8  FORMAT (  1HJ,31X, 12,  IA,  1 3X  »  F  6 . G  ) 

i  e  e  i  =  i _  _ 

I  e  B  2  =  2 
I  BC  =  A 

C  PARAMETERS  OF  R E S E R VO  I  R  GEOME TR Y ,  CX=DY 

REAL  (5,21)  IR,IQ,IT,JR,JQ,JT*DX 
READ(5,19)  SMU,ZMU,PS,PO,BS,BO,C,PERM 

0= ( 8  S-BC ) *2 . 0/ ( ( BS+BO)*(PO-PS) )  _ 
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C  1  EEL  = _ 5 .61-46  C  .FT  .  ,  X  DARCY =  6.327  SQ.  FT.«CP/  (  CA  Y*PS 

1  I  ) 

A  =  5.6  L46/6.327 
T  C  A  =  2  .  C  *  A 

B  1= ( eS*PQ-BO*PS  )  / ( PC-PS ) 

62= ( eO-8S  )  / ( PO-PS ) 

_ PCPS= ( P  C  +  P  S  )  /  2.C _ 

6  R  =  E  1  +62*PCPS 

C= ( SPU*PG-ZPU*PS  )  / ( PO-PS ) 

E=(ZPL-SPIU  )/<2.C*(PO-PS) ) 

I  RP  = I R—  i 
IRP= IR+  l 

_ IRC=  IR  +  2 _ 

IGP=  IQ+1 
I  GP  =  IQ-I 
ITP  =  IT-1 
J  R  P  =  JR  +  1 
JRP= JR-  1 

_ JRC  =  JR  +  2 _ 

JCP= JC+1 
J  T  P  =  J  T-  1 
J  GP  =  JQ- 1 

C  P  H I  ♦  Ji  (FT)  C  A  T  A 

READ ( 5,43  )  (  ( F  IF (  I  ,  J )  ,  I  =  1 , I Q ) , J= 1 , JR P ) 

_ _ RE  AC  (5,44  )  (  (FIKItJ  )  ,  1  =  1  ,  I  T  )  ,  J  =  JR,  JO _ 

R  E  A  C  (  5 , 4  5  )  (  (FIF(ltJ)  ,  I  =  IR»IT)»J  =  JQP»JT) 

k  R  I  T  E  (  6 , 1  ) 

h  R  I  f  E  (  6 , 2  5  )  I  BE  1  _ 

W  R  I T  E  (  6  ,  1 3  V 
k  R  I  T  E  (  6  t  1  1  ) 

_  h  R  I  T  £  (  6  ,  1  2  ) _ _ 

EG  toC  1  =  2, IR 
IP=  I-  1 

6 C  kRITE(6,?6)  IMt (F1H( I  ,J), J=2, JQP) 

CC  61  1= IRP, IQP 
IP  =  I-  1 

6  1  IftR  ITE ( 6,26  )  IP, ( F 18 ( I  ,J), J=2,JTP) _ 

CC  62  1= IC , I  TP 

IP=I-1 

62  W R  I  T 6  (Jp  »  3 C  )  IP  ,  (  F  IN  (  I  ,  J  )  ,  J  =  JRP  ,  JTP  ) 

V  I=C.C 

CC  8  C 1  J  =  2 , JR 

_ LC_  8  Ql  1  =  2  ,  IQP _ 

8C 1  V I=V I+F  IH (  I  , J  ) 

CO  8 C  3  J  =  JRP ,  J GP 

CC  8 C 3  1=2, ITP  . . . . . . . . . 

8 C  3  V I=V I +F IH l I »  J  ) 

CC  8  C  5  JOG, JTP 

CC  8C5  1=  IRP,  I  TP _ _ 

80  5  V  I  =V  I  +  F  IH (  I  , J ) 

VI=VI*DX*CX/(B1+B2*P0  ) 

C  R  E  AC  IN  FI  ( =PF  I  )  VALUES  USING  PY  PEPORY 

READ  (5,31)  (CPYUf  J)t  I»l«  IQ)  ,J=1,  JRP) 

R  E  A  D ( 5 , 3  3  )  ((PY(I,J),I  =  1,IT),J  =  JR,JG) 

R  E  A  C  (  5,3  5  )  (  (  PY  (  I,J),I  =  IR,IT),  J  =  JGP,  JT  )  _ _ 


)  \ 


i  .  •  i  \  \  .  <  II,.!.  ' 

l  I  i 

vse .  ••  •  .  ?  = 

A  *  .  5  *  A  J I 

l  )  =  I 

(  -  )  \  I  -  .1  1  — 

.  \  (  +  )  -  r’  '  i  ; 

I  ,=  ¥  i  • !  = 

-  i  \  (  2 


(  A$L »  1  i  ,  (  .  I  f  i  =  I  ,  (  i  ,  1 
l  A  ,  -  L  ,  (  1  :  ,  1  =  i  .  (  L  ,  I 

L  r  (  I  ,  =  I  ,  (  l  ,  i 


(  -  l  ,  '  -  l  *  (  L  ,  I  )  I 


l  'll*  i  tt  ,1)1 


l  I  L  ,  L  '  ,  (  L  ,  I  )  1 1 


(  Ci9  S 

!  •  Y  i  1  ;  i 

,  ■  t  (  ,  *  (  r 

{  l  »  ,  {  I  1  ,  f  t(  • 

<  i  t  1  -  »  ( 


•  J  .  1  \  (  1 

) 

-  1 

-  ■■  >’  I 

1 

♦  :  1 

=  l 

«-*  i 

=  -  1 

I 

fyl 

=  I 

=  ■'  .)  1 

1 

-1  1 

=  i  T  1 

I 

♦  l 

=  ,  v. 1 

-  L 

- 

¥  L 

=  i 

i 

*.  w. 

=  .. 

=  m  r  l 

i 

--  L 

=  . 

at.v.i 

(  T 

U  1*1  1 

i  i  u  ) 

(  f  • 

.  <’  ) 

JAOfl 

)  ii  i )  ) 

1 

,  ) 

)  n  i )  ) 

( 

t  ) 

(  l 

f 

dl  ITI flw 

I  H  II 

(  ?S 

t 

) 

II  'ri 

(  f  ,  '  I  II  , 

II1,  )  ill  •« 

« i ,  s  =  i  :>  j  in 

!  -I  =  I 

i )  ♦  I  {  K  ,  )  I  !  w.;  3  3 

1  I,i  !  *  '  i  ?  )  'l 

-I  =  I 

)  ,  1  l  ■  ,  .'  II  !  j 

s*  )  I 

i  -i*m 

;  )  ,  l  (  ,  ; 

.  3=  W 
i  )  ■  n 

I  1 

(1,1)  +  I  V  =  1  y/  1  V) 

A  L ,  9  U  =  t  f  )8  rrj 

■A  I  I  ,  I  ••  i.  l  i 
( t ,  !  )  1 1  H-  i  V  =  I  v  t ;  i  i 
i ,  :  ’  )  .n 

■  Tit  '3 

(1,1)  I  n  f  1  V  -  I  v/  5  )  r 

•  I  '  )  \  >  *  i  V/  -  J  V 

I  =  )  1  i  I  J  j 

)  )  )  (  !  ,  «  )  . J 

)  :  s )  )  if  e,  I  .  .  i  ^ 

)  ■  cn  )  (  ,  i  )/  - 


C _ CALCULATE  E,  K*E  USING  Q,PX  NEPORIES  RESPY. t  K=CQNST AN 

IT 

CC  7 C  J=  1  ,  JR  M 

_ CO  7 C  J>  l  ,  I  Q 

C(I,J)=FIHI,J)/PY(ItJ) 

7C  P  X ( IfJ)=Q( I  »  J  )  #  P  E  R  M 

_ CC  71  J=JR,JQ _ _ _ _ _ 

CG  7  1  1  =  1,  IT 

C  (  I , J )=F  IE  (  I ,  J  )  /  P  V  (  I ,  J  ) 

7  1  F  X  (  I  ,  J 1=  Q  (  I  ,  J  )  *P£RM  _ _ _ 

CC  72  J= JCP , JT 
CC  72  1=  IR t  IT 

_ C(  I >  J  )  =F  I  E  (  I,J)/PY(  I,  J) _ _ _ _ _ 

72  P X (  i,J ) =Q {  I,J)^PERP 
C  WRITE  KH  MATRIX 

_ W  R  I  T  E  (  6 , 2  9  )  I BB2 

WR  ITE (6,  l A  ) 

WR ITE ( 6, 11  ) 

_ WR  ITE  (  fc,  12  ) _ _ _ 

CC  8 C  1=  2  ,  IR 
IN=  I-  1 

80  WRIT£(6,26)  IM«(PX(  I,J),J=2,JQM) _ ___ _ _ _ ___ 

CC  82  I  =  I  RP  »  ION 
IN  =  I-  1 

82  Vs  P.  ITE  (  6  t  2  8  )  IN,(PX(I,J),J=2,JTF) _ _ 

CC  84  I=IC,  ITM 
IM=I-  1 

84  WRITE  16,301  IM»  C  PX  C I » J ) , J* JRP > JTM) 

C  CALCULATE  2*ARITH„AV.  OF  K*H  IN  X-  AND  Y-D I  RUCTIONS 

CC  1C1  J  =  1  , JRM 

_ CC  1C1  1  =  2, lu _ 

TCI  X  K  R  (  I  ,  J  )  =  P  X {  I,J)+PX(I-1,J) 

CO  1C 3  J  =  JR  »  JQ 
CC.  1C  3  1  =  2,  IT 

103  XKE (  I , J  )  =  P X {  I , J ) +PX ( I -  1  »  J ) 

CC  1  C  5  J  =  J  Q  P  »  J  I 

_ CC  1 C  5  I  =  I  R  P  ,  IT _ _ _ 

108  XKE (  l , J  )  =PX (  I , J  )  +PX ( I  -  1 ,  J  ) 

CC  1C9  1  =  1,  IRM 

CC  1 C  9  J  =  2  ,  J  q 

109  YKE (  l  , J  )  =  PX (  l  , J  )  +PX (  I  ,  J-l L) 

CC  110  1=  IR  ,  IQ 

_ _ CC  lie  J  =  2  ,  J  T _ _ _ 

11C  YKE<  I, J)=PX{  I, J)+PX( I  ,  J—  1  ) 

CC  112  1=  IGP ,  IT 

CC  112  J  =  JR P  .,.  JT  _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 

112  YKE  <  I , J  )  =  P X (  I  , J  )  +  PX ( I  ,  J-l  ) 

R  E AC ( 8  »  82  )  NT 

CC  888  NSET=1,NT _  _ 

R  E  AC ( 5 , 80  )  CT, PR INT,FCAY, FACTOR 
W  R  I  T  E  <  6  ,  1  ) 

WRITE  (6,. .2.0)  . . . . . .  . . . .  . . .  _ 

W  R  I  T  E  ( t  ,  8  7  ) 

WR  I  TE ( 6 , 2  ) 

W  R  I  T  E  (  fc  ,  18)  IR  ,  IQ,  I  T,  JR,  JQ  ,  JT  ,DX  _ ____ 
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r  t «  M  J  L  =  L  ,  V  3  3 
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_ Vn  R  ITE  (6 ,4  ) _ _ _ 

to  R  l  T  E  (  6 , 5  )  SMU,ZMt,PS,PG,8S,BC,C,PERK 
toR  ITE ( 6 , 3  ) 

.toRJ  T  E  (  6  fc  )  A,  6  1  ,B  2  ,  D  ,  E 

CT2=CT*2.C 

BETA=(C*CX*CX/CT  )*(  2. C/6. 227) 

toR  ITE  <  6  ,  1  ) 

to  R  I T  E  (  6 , 2  0  ) 
to  R  I  T  E  (  6 , 5fi  ) 

_ to  R  I T  E  (  6 , 7  )  _ _ _ 

to  R  I  T  E  (  6 , 7  ) 

WR  I  TE ( 6  »  36 )  PC 

_ toR  ITE  (6  i  37)  PS _ __ _ 

toRITE(6,3E)  BO 
toRITE(6,39)  BS 

. toR ITE  (6, 360  ZNL 

WRITE  (6*341 )  SKI; 
toR  IT  E ( 6 , 3A2 )  C 

C _ INITIALIZE  PRESSURES^  CLEAR  Q  NEMCRY _ 

CC  L2C  J=  1 »  JRNI 
CC  I  2  C  1=1, IQ 

C  (  It  J  )=0  ,c  _ _ _ 

1  2  C  P  Y  {  I  »  J  )  =  P  C 

CC  123  J  =  JR  »  JQ 

_ CC  123  1=1  i  IT _ 

C(  I» J  )=C.C 
123  PY ( I , J ) =PC 

CC  125  J  =  JQP  ,  JT  _ _ __ _ 

CC  12  5  I  =  I R  ,  IT 
C(  I, J  )=0.C 

__  125  PY  (  I  ,  J  )=PC _ 

C  SPECIFY  PRCCUCT  ION  RATES  CF  DIFFERENT  WELLS 

G ( 1C , 10 )=75.0*FACTGR 

_  G  {  13t  10  )  =  75.0*FACT0R  __  _ 

C { 16, 10 )  =  75* 0*F ACTOR 
G  (  19, 10 )=75.0*FACT0R 

G  (  A  ,  7  )  =  125  .C»FACTCR _ 

G ( 7,  7  )  =  12 5 . C*F  AC  TOR 
G  (  1C,  7  )  =  125.0*FACT0R 

G  (  1  3  ,  7  )  =  1  25 . 0*F ACTOR _ _ _ 

G  l  1 6 , 7  )  =  1  2  5  .  C  -  F  A  C  T  C  R 
G ( 19, 7 )=1 25.0* FACTOR 

_  _  C ( 4 , 4 )=75.C»FACTCR _ 

G ( 7,4 ) =75.C*FACT0R 
G ( 1C ,A )=75.C*FACTCR 

G  (  13,A)=75.C*FACTCR  . .  .  ___ . . 

WR ITE (6, 2C  ) 
toR ITE ( 6 , 25  ) 

toR  ITE  (  6 , 3  *4  3  ) _ 

toRITE(6,3A5) 

toRlTE(6,3A6) 

WRITE (6,347) 

C  C  A  6  5  J  =  2  ,  J  T  E- 
CC  A  6  5  1  =  2,  I  TK 

I  F  (  Q (  I  ,  J  )  .GT.  C.C)  GC  TO  A63  _ 
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CC  TC  4 6  5 _  _  _  _ 

463  IN=I-1 
JN  =  J-  1 

WRITE(6,348)  IN,JN,C(  I,J) 

465  CGNTInUE 

W  R  I  T  E  (  6 , 2  C  ) 

W  R  I T  E  (  6  ,  16  ) 

VvRITE(6t  17) 

W  R  I  T  E  (  6 , 2  2  )  Q(4»4),Q(7»4)  ,  Q  (  10,4)  ,U(  13,4)  » Q  ( 4  »  7  )  ,  Q  (  7  »  7 

_  1)  ,  _ 

C  c ( 1C f  7 ) , G l 13, 7  > 

WR  ITE (6, 18) 

WR  I  T  E  (6  ,_23  )  0  (  16,7  )  ,Q(  19,7  )  ,  Q  I  1  C  ,  1 0  )  ,  Q  (  1  3  ,  10)  ,Q(  16,10) 

1 ,  C (  15 , 1C) 

VsR  ITE  (  6, 5  1  ) 

WR  ITE ( 6, 56  )CT, PR  I N  T  ,  FD  A  Y  ,  F  AC  TCR 

WRITE  (4,344)  I  EC 

PRCC=(C(  1C , 10 ) +C (  1  3  ,  1  C ) +Q (  16,10)+  C(19,lO)+g(4,7)+g{7, 

17)4 _ 

C  G(lC,7)+C(13,7)+C(i6,7)+C(19,7)+Q(4,4)+G(7,4)+C(10,4) 
1  + 

C  G  (  1 3 , 4  )  ) 

K  N  L  =  C 
T  I  NE  =  C  .  C 

3CCC  CCM1NUE _ 

CUTPL  T  =  C . C 

C  PRINTOUT  CYCLE 

5CC  CUTFLT=CUTPLT4CT2  _ _ _ _ _ _ 

1  I  NE=T I ME  +  CT2 

C  CALCULATE  PL (  I  ,  J  )  IN  THE  X-  AND  Y-CIRECTICNS 

CO  150  J  =  1  ,  JRN! _  _ 

CC  150  1  =  2,  IQ 

150  XPU(  I,J)=C4E*(PY(  I  ,  J ) 4PY(  I - 1 , J )  ) 

CC151J=JR,JQ 

CC  151  I  =  2  ,  I  T 

151  X  P  U  (  I,J)=C4E*(PY(  I  ,  J ) 4  p  Y (  I - 1 ,  J )  ) 

_ CC  152  J  =  J C P  ,  J  T  _ _  _  _ 

C C  15  2  1=  IRP,  I  T 

152  XPUl  I , J )=C+E*( PY (  l,J)4PY(  I  —  1  *  J )  ) 

C c  l5A  J  =  It  IRM  _ _ __ _ _ 

CC  154  J  =  2 , J Q 

154  Y  P  U  (  I»J)=C  +  E3MPY(  I  ,  J  )  +PY  (  I  ,  J- 1 )  ) 

_  CC  155  i  =  I R  ,  I_Q _  _  _  _ 

CC  155  J  =  2  ,  J  T 

155  Y  P  U  (  I,J)=C4F*(PY(  I, J)4PY(  I  , J-  1 )  ) 

CC  157  I=ICP,IT 

CC  157  J  =  J  R  P , J  T 

157  Y PC  (  I , J  )  =C  +  E* ( P Y (  I  ,  J ) +PY (  I  ,J-i)  ) 

C  FORWARD  SWEEP  IN  SOUTH-EAST  DIRECTICN  TO  FIND  PX( I, J) 

C=BETA*FIH(2 ,2 ) 

V  =  XKH ( 3,2)  / XMU (3,2) 

_ _ W  =  YKF  (2,3)/YMU<2,3)  __ _ _ _ _ 

R  =  B1 4B2«PY{ 2,2) 

PX(2,2)=((U-V-W)*PY(2,2)+V*PY(3,2)4W*PY(2,3)-T0A*Q(2,2 
1  )  *  R  )  /  U   
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PX( 1,2)=PX(2,?)  _ 

F  X  (  2  »  1  )  =  P  X  (  2 , 2  ) 

CC  160  J  =  3  »  JG 
R  =  E£T  A*F  II-  (2,  J  ) 

S  =  Y  K  P <  2 »  J  )  /  Y  M  U  (  2  »  J  ) 

L  =  XK  P ( 3, J ) /XMU (  3  »  J  ) 

_  V  =  Y  K  P  ( 2 , J+  1  )  /  YM  L  (  2  ,  J+  1  ) 

T=B1+B2*PY(2,J) 

160  P  X  (  2  »  J  )  =  (  S*PX(2,J-1  )  +  L  *  P  Y  (  3  »  J  )  +  V  *  P  Y  (  2  ,  J  +  1  )  +  (  R-U- V  )  *PY  ( 

12. J)-TCA*C(2  _ 

S,J)*T)/{R+S) 

CC  161  J=1*JQM 

161  PX(1,  J)=PX(2,J) _  _ _  _  _  _ _ 

CC  162  1=3.1 GM 
R  =  B  E  T  A  *  F  I  P (1,2) 

S  =  XKP  (  I  ,2  )/XMU< 1.2) 

T=E1+B2*PY (  I  ,  2  ) 

L  =  XK F (  I+l,2)/XNt(  1+1,2) 

V  =  YKP  (  1 ,  3  )  /  Y  M  U  (  1,3)  _ __ _ _ _ 

162  PX(I,2)*(S*PX(  I-  1 » 2  )  + ( R-U- V ) *P Y ( I  ,  2  ) +U*P Y ( I + 1 , 2 ) +V*P Y ( 
1  I , 3  )-TCA*C  (  I 

S, 2  )*T  ) / (R  +  S  ) 

P  X  <  I  G  ,  2  )  =  P  X (  IQP,2) 

CC  163  1  =  3, IQ 

163  PX(I,1)=PX(I,2) _ 

CC  16A  J  =  3 , JRP 
CC  1 6  A  1=3, IGM 

_ _  R-BETA*FIH( I. J ) 

S  =  XKP  (  I , J  )  /XMU (  I  , J  ) 

T=B1+62*PY (  I  ,  J  ) 

L  =  YKF  (  I  ,  J  )  /  Y MU  (  I  ,  J  ) _ _ _ 

V  =  XK P {  1  +  1  , J  )  / X M (  1  +  1,  J ) 
k  =  YKP  (  I  , J  +  l  )  / YPL  (  I , J+ 1 ) 

1 6  A  PX(I,J)=(S*PX(I-i,J)+l*PX(I,J-))+(R-V-W)*PY(I,J)+V*PY( 

l  I  +  1 ,  J  )  +  w  *  P  Y  ( 

SI  , J+  1  )-T0A*G ( I  *  J )*T ) / (R  +  U+S ) 

_ _ CC  166  J  =  3  ,  JR _ 

166  PX(  IG,J)  =  PX(  IQP, J) 

PX(  IC,  JR+1  )  =  PX(  IC,  JR) 

C C  168  I  =  IQ p  ,  I  T N  _ _ 

R-BETA*FIHU.JRP) 

S  =  XKF (  I  ,  JRP  )  /XPL (  I  ,  JRP  ) 

T  =  fc 1  +  B2*P  Y  (  I  ,  JRP  ) _ _  _ 

l  =  XKH  1  +  1  »  JR P  )  / X ML (  I  +  1 ,  JR  P  ) 

V  =  YKP (  I  ,  JRP  +  1  )  /YMU (  I, JRP  +  1  ) 

lj£8  PX(  I  ,  JRP  )  =  (S*PX(  I-1»JRP)+-(R-U-V)*PV(  I .  JRP  )+U*PV  ( 1  +  1.  JR 
IP  )  +V  *  P  Y  (  I  ,  JR 

SP+1)-T0A*C(I»JRP)*T)/(R+S) 

CC  169  I  =  I  Q P ,  I T M _ _ 

1 6  S  PX (  I  ,  JR  )  =  P  X (  I  ,  JRP  ) 

CC  1  7 C  J  =  JRC  ,  JGM 
CC  170  1  =  3,  I TM 

R  =  BETA*F  IP ( I , J ) 

S  =  X K F {  I  ,  J  )  / XMU (  I , J ) 

T  =  E  1+B2»PY  (  I  ,  J  )  . . 


I  ,  )'<  =  ($.,  J  )  X4 

l  ,  S  I  X  •  =  (  !  »  )  X  4 

.  i , r  =  i  )  i  :i  3 
(  t  r  S  )  M  i  *  A  T  3  t  - 

;  i  t  » )  i  y  \  ( *  ,  )  i >  - 

(  L  ,  )  X \ (  l  ,  )  i  -J 

(  J  +1  ,  •.  )  J  /\  (  1  >1  t  )  l 

(  L  .  4  )  1  1 1  *  ■  >11  = 

(  -  -  }  m  -  ,  !  I  v  > (  »  )  !>(-,.)•  M  =  (  ,  I  I 

)  .  m  -  ( 1 1  ;  i 

(  >  •  )  \  (  I  M  L  ,  2 

' .  L  t  I  = l  Hi  J 1 
{  l ,  $  )  X  •  =  {  u  ,  1  )  a  -i  I  3  [ 

■  1  ,  ‘ =  1  ^  3  I  .] 

(  S  .  I  )  1  M  •  A 1  d  4  = 

(  tM  \  ( 

(  »  1  )  i  >  1  =  T 

t  , I  >  1  )  )  ■  \  (  . ,  1 >  1  )  MX  =  J 

(ft!)  Y  \  (  ,1)1  -  v 

►  {  ,  i  >  i  )  t  >  <  ,  ;  -  -  i  > ;  t  i  - :  )  )  <  x  t ;  >  ^  m 

I  )  ,)  •  ■  t  -  (  ‘  » i  i 

(  *  ) \ ( i * (  ,2 

(  ,  .  1  )  \  4  =  (  *s  .  „  I  )  .-  -i 

j  I  ♦  €  =  I  €31  3 .1 
(  til  =  (  l  .  I  )  a  *  i  I 
4  l,£  =  L  •  J 
..  I  t  r  =  1  A  1 
(  L  ,  I  )  -t  1  i  *  41 J  d  « • 

( 1 1 1  )  J  *  \  ( L  ,  f  )  i  XX  =  2 
(  L  *  I  )  Y  M  *  S  iH  i=T 
{■•.*!>  «'  \  (  i  ,  I  >  <’  -!  Y  = 

( t  t  (  >  I  )  J  \  (  l  »  i  >  I  M  X  X  =  V 

l  .  +  ,1)1  \(  J  >1  t  1  )  HXY=v 

+  (  .  )  l  -  v  -  <  t  (  -  ,  )  ‘  +  (  ,  -  i  :  )  (...) 

) Y 4 :  < > ( i  ,  1  >  II 
(  >  f  )  \  (  I  -M  o  ,  n  .  f  -  (  J  +  L  ,  1  2 

t ,  >  =  L  '  3  i  ,J  3 

l  ,  ,  )  ■  =  (  L  »  1  )  X  -  J I 

(  t  t  .  I  )  X  4  —  (  i  >  ^t  -  I  ) X  4 

4  !  I  ,  i.  I  =  I  (3  3  I  )  3 

»  ,  ;  j  -f :  ■  i  i  - 

i  t ,  1  )  j  •  \  (  >•  ,  1  )  i  x  =  2 

l  .  :  ,  l  ;  r  >  •  •  >  I  1 

(  4  l  ,  1  +1  L  X  \  (  431  ,  I  >  I  )  1  = 

(  I  >  !  ,  1  )  Y  \  (  1  ♦  '  l  ,  I  )  I  Y  -  \J 

,  1  >  (  •  ( V  -  J  -h )  ♦  (  •  -  1  '  *  1 

>  ,i  hfv-v*  I  I 
(  *• :  )  \  (  i  (  !  .  ,  i  )  1 T  -  (  :  >  2 

4  T  1  ,4.1  =  1  *'31  ■  J 

l  '  :  Vi,  ,  I  )  i  =  (  •  t  I  )  1 

Vl.  It  L  =  L  J\I  3 
1  1  ,  ■  =  I  )  V  1 
(  i  ,  1  )  l  M  ■*  A  1  j  = 

I  (  ,  1  )  ;  5  X  \  (  l  t  1  )  i  x  - 

(  !  t  1  ■  ■,  >  .!  = 


_ L  =  YKH  (  l ,J  )/YMUt  I.  J) _ 

V  =  XKF (  1  +  1 1 J  )  /XMl (  1  +  1, J ) 

Vn  =  YK  I-  (  I,J+l)/YML(  ItJ+i) 

170  PX  (  1  ,  J  )  =  (  S*PX{  i-  1  ,  J  )+U*PX  (  I  ,  J-l  )  +  {  R-V-w  )  *PY  (  I  ,  J  ) £V*JPY  { 

I  I  +  1, J  )  +  W*PY < 

SI,J+1)-T0A*Q(I,J)*T)/(R+U+S) 

_ CC  172  1=1, IR _ 

172  PX(I,JQ)=PX{I,JGM) 

PX(  IRP,  JQ  )=PX(  IR,  JQ) 

_  CO  175  J  =  JQP , JTM  ___ _ _ _  _  _ _ 

R=BETA*E  IH  IRP,J) 

S  =  YKF  (  IRP,  J  )  /YNL (  IRP,  J  ) 

_ T=E1+B2»PY  (  IRPtJ  ) _ _ _ 

L  =  XK  F (  IRC  ,  J  )  /XML (  IRD, J  ) 

Y=YKF(  IRP,J  +  1)/YMU(  IRPtJ+1) 

175  PX(IRP,J)=(S*PX(IRP,J-1)+L*PY(1RC,J)+V*PY(IRP,J+1)+<R- 
1U-V)*PY(  IRP» 

SJ)-TCA*Q{IRP,J)*T)/(R+S) 

_ CC  177  J=JGP,JTM _ 

177  PX (  IR, J  )=PX(  IRP,J  ) 

CC  179  J  =  J  G  ,  J  T  M 
CC  179  I  =  I RD , I TN 

R  =  BE  T  A*F  IP  (  I  ,  J  ) 

S  =  XK  F (  I, J  )/XMUl  It J) 

_ T=E1+B2*PY(1,J) _ 

L  =  YKF  {  I  ,  J  ) / Y MU ( I , J  ) 

V  =  XKF  (  I  +  l,J)/XH(  1  +  1,  J) 

_ W  =  Y  K  F  (  I ,  J  +  l )  /YNL  (  I  ,  J  +  1  ) 

175  PX (  I , J  )  =  ( S*PX(  I-  1  ,  J  )  +  L*PX (  I  , J-l )  +  {R-V-W)*PY { I, J ) +V*PY( 

I I  +  1 , J  )  +  W*PY ( 

_ SI,J+1)-T0A*Q(I,J)*T)/(R+U+S) _  _  _ 

C  EGLNC ARY  CONDITION  OF  0,0  FLUX,  USE  REFLECTION 

CC  181  1  =  I R ,  I  TP 

181  P  X  (  IfJT)=PX{  ItJTM)  _ _ _  ___  _  _ _ _ _ 

CC  183  J= JR, JT 
183  P  X (  I  T , J ) =  P  X (  ITN, J) 

C  _  REVERSE  SWEEP  IN  NORTH-WEST  CIRECTICN  TO  F IND  PY ( I , J) 

C  CALCULATE  MU(I,J)  IN  X-  AND  Y-DIRECTIONS 

CC  2C1  J  =  1  ,  J R M 
C  C  2  C  1  1  =  2,10 

2C1  X  M  L  (  I  ,  J  )  =  C  +  F  *  (  P  X  (  I  ,  J  )  +  P  X  (  I  -  1  ,  J  )  ) 

CC  2C2  J  =  JR , JQ 

_ CC  2C2  1  =  2,  IT _ _ _ 

2C2  XMU{I,J)=C  +  E*(PXU,J)+PX(I-1,J)) 

CC  2  C  3  J  =  JQP,JT 
CC  2C3  1=  IRP  ,  I  T 

2 C 3  XMIU  I»J)«C  +  E*(PX( I*J)+PX( I-1»J) ) 

CC  2 C 6  1  =  1, IRM 

_ CC  2  C  6  J  =  2 , J Q _ 

206  Y  ML  I  I,J)=C+E*(PX(  I  , J) +PX(  I  ,J-l)  ) 

CC  2C7  1=  IR,  IQ 
CC  2 C  7  J  =  2  ,  J  T 

20  7  YMU(  I , J  )  =  D  +  E* ( PX (  I  , J ) + P X {  I  ,  J -  1  )  ) 

CC  208  1=  ICP,  I  T 

CC  2  C  8  J  =  JRP  ,  J  T  _  . . 
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208  ymui  i ,  j  )=c  +  e*(  px  (  i,  j)  +px (  i ,  j-  1 )  ) _ _ 

R  =  BETA*FH  (  ITM, JTM } 

S  =  X  K  P  (  ITM»JTM)/XML!(  ITN*  JTM  ) 

_____  t  =  YKP  I  ITM  ,  JTM  )  /  VML  (  I  IF  ,  JT  M  ) 

V  =  B l  +  B2*P  X { I TM ,  J  TM J 

PY(  ITM,  JTM  )=((R-S-U)*PX(ITM,JTM)4S*PX(  I  TM-  1  ,  J  TM  )  +U*PX  ( 

1 ITM,  JTM-1  )-1 _  _ _  _ 

SCA*G (  ITM* 1 * * * V, JTM)  *V )/R 
PY (  I  T  »  JTM  )  =  PY (  I T  M , J  TM  ) 

P  Y (  ITM,  JT  )=PY(  ITM,  JTM) 

P  Y (  IT,  JT)=PY(  ITM, JTM) 

JT JR= JT-JR 

CC  215  JB=2,JTJR _ _ 

J  =  JT4  I-JB 
R=BE1A*FIP(ITM,J) 

S=YKP(ITM,J+1)/YML(ITM,J+1) 

l  =  XK  P (  ITM , J) /XML ( ITM, J) 

V  =  YKP ( ITM, J ) / Y ML  (  I  TM, J  ) 

__  T  =  B14B2*PX(  I  TM,  J  ? _ _ _ _ 

215  PY(  ITM,vl)  =  (S*PY(  I  TM,J  +  1  )  +  (  R  —  U —  V  )*PX(  ITM»J)+U*PX(  ITM-1, 
1J)+V*PX(ITM, 

$J-1)-TCA*CUTM,  J  )*J)/{R4$) 

CC  216  J-JRPtJTM 

216  PY (  IT  ,  J  )=PY{  ITM  ,  J  ) 

_ P  Y {  IT,  Jk)=PY(  ITM  ,  JRP) _ 

PY (  I  TM  ,  JR  )=PY (  ITM,  JRP  ) 

ITIR  =  IT—  IR 
CC  218  IB-3,  ITIR 
1  =  IT-*  l- IB 
R=BETA*FIP(I,JTM) 

S=XKP(  I41,JTM)/XML(  I  4  1, JTM)  _ _  _  _ 

L  =  X  K  P (  I  ,  J  TM  )  /XML (  I  ,  JTM ) 

V  =  YKP  {  I  ,  JTM  )  / YML (  l  ,  JTM  ) 

T=B1+B2*PX( I, JTM)  __ _ _  _ 

P  Y  (  I »  JTM  ) = ( S*PY (  I  +  l » J  TM  )■*■  (R-U-V  )*PX  (  I  *  JTM )+U*PX ( 1-1 , JT 
IM  )  +V*PX {  I  ,  JT 

SM-  1  )- TCA*C (  I  , JTM )*T  ) /|R  +  S ) 

2  1 8  P  Y (  I  ,  J T  )  =  P  Y (  I  ,  J  T  M  ) 

PY  (  IR  ,  J  I  )  =PY (  IRP  ,  JT  ) 

PY (  IR,JTM)=PY(  IRP,  JTM) 

J  T  JOT  =  J  T  —  J  C  4  ? 

CC  220  JB=3,JTJL'I 

J  =  JT4  1-JB  _  _ __  _  _ 

CC  2 2 C  IB-3,  IT  IR 

I  =  I  T  4  1  -  I  B 

R  =  BE  T  A»FIH  (  I__,  J_  ) _ _ _ _ _ 

S  =  XK  P (  I  +  1  ,  J  )  /XML (  I  4 1 , J) 

T=ei4B2«PX ( I , J ) 

L  =  YKP  (  I  ,  J  4  1  )  /  YML  (  I  ,  J4- 1  ) 

V  =  XK P (  I  , J  )  / XMU (  I  , J  > 

V\  =  YKP  (  I  ,  J  )  /  Y MU  (  I  ,  J  ) 

2  2  C  PY(  I,J)  =  (S*PY(  1  +  1 ,  J  )+Li*PY  (  I  ,  J  +  l  )  +  ( R-V-W  )*PX  II ,  J  )  +V*PX  ( 
1 1-1, J  )+W*PX( 

S  I  , J-l  )-TOA*Q (  I , J  )*T)/ (R4S  +  U) 

J  T  JG 1  =  J  T- J  C  +  l 
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II —  1 »  J  )+W*PX( 

SI  ,  J-I  )  -TO  A^Q  (  I  ,  J  )  »T  )  /  {  R  +  S.+  U  ) 

CC  226  l =  IG ,  ITM 

226  PY (  I  ,  JR  )  =  P Y (  I  , JRo  ) 

PY ( IGM»JR)=PY(  IG  ,  JR  ) 

JT JRP= JT-JR 42 
CC  228  JB=JTjRP,JTM 

J  =  JT-»  1- JB  _  _  _  _ _ 

R  =  BET A*F  IF (  IQM,  J  ) 

S  =  YKF (  IGM,J+1)/YMU(  IQM,J+1) 

T  =  BI  +  B2S<'PX{  IQM,  J  ) 

L  =  XK  F  (  IQM,  J)  /XM  l  IQM,  J  ) 

V  =  YKF  (  IQM , J ) /YML  (  IQM, J  ) 

_ PY (  IQM , J )  =  ( S *P  Y  (  I  CM  ,  J+ 1 )  +  { R-U- V ) *PX(  IQM, J ) +U*PX (  IQM- I , 

1  J  )  +  V  =>  P  X  (  I  CM, 

SJ-l  )-TCA*G  (  IQM,  J  )*T  )  /  (R4-S  ) 

2  2  8  PY<  IQ,  JI«PV(  IQM,  J)  _ _ 

PY(  IG,  l)=PY(  IQ, 2  ) 

JT JR  1  =  JT-JR+  I 

IT  IQ3=  IT-  IC  +  3 _  _  _  _ _ 

CC  230  JB  =  J T JR  l  , JTM 
J  =  JT+  l-JB 

CC  230  IB=  IT  I Q 3 ,  I  TM 
1= IT-  IB +  l 
R=BETA*F  IF  (  I  ,  J  ) 

S  =  XKF  (  I  4  j  t  J  )  / X M L  (  I  4  1 1  J  )  _____ 


!  .•  i  ,  =  ;  N  i  I 

-i  Mi  =t 

( l ,  h  1 1  )  (  ,  •  1  )  r  -h  s  i 

(  i  ,  HI  )  •  (  .  .  ,  V  1  ) Y  ‘ 

;  +  M  -  :  =  T  H I  T  I 

vi  T  I  i  T  I  IT  I  =  I  f  ^  DO 

I  -  i  M  I  =  I 

(  * :  .  I  ,  !  )  1  I  i  v  O  T  j  = 

(  .1.1+1).  X  \  (  .  ,  I  +  !  )  X  =  2 

(  .  L  »  1  !  J  •  \  (  •'  0  I  1  l  M  •  =  J 

(  ’ .  L  ,  I)  J  y\  (  v  J  ,  )  -i  Y  =  v 

(  *  i ,  I  )  x  q  *  s  t  ►  I  s  =  T 

*  i,  ,  i  )  ;  (  -  -  )  M  .  I  I  H  )  ■'  )  =  (  •  1  )  Y  J 

J  l  «  I  )  ‘  ■  *  V  +  (  *  1 

( .  ■  +  )  \  (  ••  (  ,  I  )  J  •  .  1  -  ( i  - v> 

(  j  ,  i  v q - {  l *  i ) y o  fS\ 
£  +  = ..  ■  r  l 

i  -  l  =  T  V. 

I  u i  J I •  T l ~  i  cn  \  I 
ML-  I  ♦  U*l 
■  '  ,  =  1  s  '  JO 

:1-IH!=I 

u,i )  in* a  i  j  =$• 

(  L  ,  i  + 1  )  J  -?X\  (  L  ,  I  +  !  )  j  *;  =  J 
(  ♦  I  )  v  v;=  +  I  i  —  f 

(1+1,1),’  Y\ (  I  +  ,  I  )  -H Y  =  J 

(  ,  1  )  *  >  \  (  L  ,  1  )  ■»*  =  Y 

(  i  .  I)  I  •  \  (  ,  T  )  i  Y  =  « 

)•.*«  +  (  ,  )  j  i  -  -  )  +  ( j  m.  ,  n  y  '  *  j  +  ( ;  1 1  + 1  )  >  d)  =  n»i)Ytes? 

j  •  • . .  +  ( i ,  i  - 1 1 

(  »  +  ) \  (  ■  ;  , 1 )  I  - .  I -l  ,  1  1 

•  M  ,  .  1=1  Jn  S.  D  0 
(  ••  H L  ,  I  )  Y M  -  (  l  ,  1  )  Y  J  dS* 
(  l  ,  .  I  )  >  -  (  :  t  .  '  .  I  )  Y 

♦  -11=  ‘l  I  l 


lit  9  SI  U  -  ;L  t<£S  JO 

-  :  +  I  i  =  i 

H,  1)011  T  •  =  v 

(  i+l  t  .1)  Y\  (  '  U  ,  -iJl  )  H*Y  =  0 

(  t  ,  '  I  )  x  ‘  ,  f  1  i  =  T 

(  L  t  J  J  I  I  J  -1  ’  \  (  t  .1)0-  <  -  J 

(  l  » M .  I  i  JMY\  (l,  ,  I  )  i  ,iY*y/ 

,  -  .  I  )  +  (  l  *  .  (  .  1  (  -  -  }+([••  ,  .  I  )  Y  ,  '.<>)=  (  ,  1  )  >  < 

,  3  )  ■  1  'JMl  I 

\  (  i. »  i  i .  •  T  -  (  i  -i.  ’ 

(i,m!)Y;I=(L,  JIY'l  J-n 
(  s  ,  .  I  )  Y  <■  =  (  I  ,  .  I  )  Y  4 

•  +  *  l  -  T  l.  =  I  h !  T  l 

+  J  I  -  T  I  =  :  .  HI 
ill  ,  !  J  I  l-  l  33 

1  i  =  L 

t  '11=  I  „  •  ■ .  j  j 

J  +  i  -T l  =  i 
(  l.  ,  1  )  H  I  i  •  A  T  3  M  =  '• 

1  •  r  I  M  )  •  \  (  ♦  1  M  )  1  ,  '  =  i 


_ 1  =  81  *B2*PX  (  I  ,  J  ) 

L  =  YK  P  (  I  ,  J+ 1 ) /YML  (  I  , J+  1  ) 

V  =  XKP  (  I  ,  J  )  /  X  MU  (  I  ,  J  ) 

N  =  YKF  (  I  ,  J  )  /  YJMIJ  (  I  ,  J  ) 
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TWO-C  IMENS IGNAL  NCNL I  NEAR  MODEL  OF  A  GAS  RESERVOIR 
SOLVED  BY  A CEP 


THIS  PROGRAM  PREDICTS  THE  BEHAVIOR  CF  A  GAS  RESERVOIR 
AS  GAS  IS  PRGDLCEC  FROM  THIRTY  SEVEN  ARBITRARILY 
LOCATED  WELLS.  THE  RESERVOIR  IS  CF  IRREGULAR  POLYGONAL 
SHAPE  WITH  ZERO  MASSFLLX  ACROSS  THE  BOUNDARY. 

THE  RESERVOIR  IS  SIMULATED  BY  A  TWO-DIMENSIONAL 

NONLINEAR  MODEL.  THE  MODEL  IS  SOLVED  BY  ADEP. _ 

IN  THE  PROBLEM  LNOER  CONSIDERATION,  F/MU *Z  AND  P 
COLIC  BE  EXPRESSED  SATISFACTORILY  AS  LINEAR  FUNCTIONS 
CF  P/Z. 


_  _ _ _ _ £  $  »  $#$$$#❖£ 

NOMENCLATURE 

A (  ,  )  X- DIRECTIONAL  A  V  ERACE  OF  F(  ,  )  (DA  R  C  Y-F T ) 

E(  ,  )  Y-D IRECT IONAL  AVERAGE  OF  F (  ,  )  (DARCY-FT) 

D  1  ,D2 _ CONSTANTS  IN  P/  MU*Z)  Cl  C2»  P/Z) 

CT  TIME  STEP  (DAYS)  PER  SWEEP 

CX  SIZE  CF  SPACE  GRID  (FT) 

El  .  ) .  CONSTANTS  (  ,  ) 

F  (  ,  )  PRESSURE  (PSIA) 

FACTOR  FACTOR  TO  CHANGE  PRCCUCTICN  RATE 

F C A V  __  REAL  TIME  CURING  WHICH  RESERVOIR  HISTORY 

IS  DESIRED 

H (  ,  )  PERMEAB  I  LI TY* FORMAT  ION  HEIGHT  (DARCY-FT) 

NSET  NUMBER  OF  DATA  SET 

P .  PRESSURE  ( PS  IA  ) 

P  1  ,  P  2  CONSTANTS  OF  THE  RELATION  P  =  PL+P2SM  P/Z) 

P_I _  INITIAL  PRESSURE  (PSIA) _ 

PRINT  COMPUTED  RESULTS  PRINTED  AT  INTERVALS  OF 

THESE  MANY  CAYS  OF  RESERVOIR  HISTORY 
PZJ  ,__L  PRESSURE/COMPRESSIBILITY  FACTOR  (PSIA) 

R  ’  GAS  CONSTANT 

T  TEMPERATURE  (DEGREES  RANKINE) 

T  IME _ TIME  FOR  WHICH  RESERVOIR  HISTORY  HAS  BEEN 

COMPL  TED 

L (  ,  )  PCRCS  I  TY*FCRMAT ION  HEIGHT  (FT) 

W(  ,  )  PRODUCTION  RATE  0_F  A  WELL  (  MMSCF/DAY  ) 

Z  COMPRESSIBILITY  FACTOR 

Z  I  INITIAL  Z 


CINENSICN  A ( 2 1  ,  I  3  )  ,  8(21,13),  E(21,13),  F(2L,13),  H(2! 
It  13)  , 

C  PZ(2I,  13)  ,  W  (  2  1  ,  13)  ,  U.  (  2  1 ,  13) 

DIMENSION  GB ( 99 , 5 ) 

1  FORMAT  ( 2  X  ,  6I4,F6.0»F7.4,F5.0,F6.2»F5.2) 

2  FOR N  A  T  (  1  X  ,  3 F  7.0 
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3  FORMAT  (2X,  1AF5.1) _ 

A  FORMAT ( 1H2, 3H  ) 

5  FORMAT  (2X,  9F6.2) 

. 6  FORM  A  T  (  1 H i  2  t  9  X  ,  6 F C C N T D  .  ,  2 2  Xj  8 H  T  A B L  E  B -  »  12) 

7  FQRMAT!2X»2E1 6 • 8  *  2  F  7  • 3  ) 

8  FORMAT!  1H2,37X,8HTABLE  B- ,  I  2  ) 

381  FORMAT ( 1HL ,  lbX»  1 6FINIT1  AL  PRESSURE,! 6 X , 2H P  I  t F9 . 2 , 6 Xf  Ah 

l  F  S  I  A  ) 

3  82  FORMAT! 1HJ,15X,3AHINITIAL  COMPRESS  I  B  I  L  I  T  V  FACTOR  ZI,F 

_ UJL-A1 _ _ _ _ _ _ _ _ 

3  83  FORMAT ! 1H J  * 15X  f 21HRESERVQ  IR  TEMPERATLRE  ,  1  LX  ,  2F!TF  ,  F9. 2  , 
16X ,9FCEGREES 

_ C  F) _ _ _  _  _ 

3 8 A  FORMAT! 1HJ, 15X, 15FSPACE  GRID  S I ZE , 17 X , 2HDX ♦ F9. 2 , 6X , AHF 
1EET  ) 

3  8  5  FORMA T(1HL»  15X  »4QHPRES SURE  t COMPRESS  181 L IT Y  FACTOR  RE  LA 

1  T  I  ON  ) 

386  FORMAT ( 1HJ,31X,22FP  =  80.CC  +  0.8C*(P/Z)) 

387  FORMA  ft 1FJ, 1 5X t 5 OF PRE S SURE » VISCOSITY , COMPRESSIBILITY  F 

1ACTCR  RELATI 
CON  ) 

388  FORMAT! 1HJ,31X, 32HP/ ( MU»Z )  =  6815. 0  ±  3737.0*!P/Z> ) 

A C 7  FORMAT (  1FS,9X,2P  I J 

AC8  FORMAT! 1FK»18X»51H MATRIX  OF  PRESSLRE  IN  GAS  RESERVOIR, 
1  ( PS  IA  )  .  B V  A _ 

1CEP  ) 

AC  9  FCRMA T (  1FK  ,  35X  ,6HT  I  ME  =,F6.C,5H  CAYS) 

A1C  FORMAT! lHK,32Xt I 2H( TIME  STEP  =,F5.C,feH  DAYS)) 

All  FORMAT! 1HL»9X» 66H  J  1  2  3  A  5  6 

1  7  8 

C  9  1C  11) _ 

A  12  FGRMATUH  »  9  X  ,  2  F  I) 

A  1 3  FORMAT  (  1HL,37X, 17FPHI*H  MATRIX  (FT)) 

AJLA  FORMAT!  1HL , 35X , 2  1HK*H  MATRIX  ( DARCY-FT )  ) 

A  15  FORMA  T {  IF  1  ,  2 H  ’  ) 

A 1 6  FORMAT (  1  FK  »  1 9X , 52F  NA 1  NB  NN  MAI  MB  MM  P  Z 

1  T  R _ 

C  CX  ) 

A  1 7  FORMAT { lFJ»19X»6IAfF6.C»F7.A,F5.0,F6.2»F5.2) 

A 1 8  FORMAT < 1HL  ,2AX , 30FD1  D2  PI  P2  ) 

A  1 9  F OR M  A  T (1FJ  ,  1 9 X »  2  E  1 2 . A  »  2 F 7 • 3 ) 

A  2  0  FORMAT  (  1H3,20X,47HPR0DUCTICN  RATtS  OF  WELLS  (MILLION  S 
1 . C.F. /CAY  )  J 
A  2 1  FORMAT ( IF  L  »  5H  ) 

A  2  2  FORMAT (  1HL  »25X,AOhTWO  DIMENSIONAL  MODEL  OF  A  GAS  REStR 

1VCIR)  __  ..  _ _ 

A 2 3  FORMAT! INK, 2H  ) 

A26  FORMAT (  IF  ,  9 X »  I  2  * 8F6 . 2  ) 

A  2  7  FORMAT (  IF J  ,  2H  ) _ 

A  2  8  FORMAT (  1H  ,9X,I2,11F6.2) 

A  2  9  FORMAT (  1 H  3 , 3  9  X  »  8FTABLE  B-  ,  12) 

A  3  0  FORMAT (  IF  ,  9 X ,  I  2  ,  1 8 X , 8 F 6 . 2  ) 

AAO  FORMAT (  IF  ,9Xt 12 ,8F6. 0 > 

A  A  1  FORMAT (  1 H  ,  9 X ,  I  2  ,  1 1  F6 . 0 ) 

A  A  2  FORMAT  (  IF  ,9X,I2,18X,8F6.G) 
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4  4  9  FCRMAT(1X,3F7.C,F6.2) _ 

45C  FORMAT!  1HJ,  15X,3F7.C,F6.2) 

451  FORMAT (  1H3  ,  19X , 24HCT  PRIM  FCAY  FACTOR) 

£52  FORMAT  ( IX . 13  )  _ _ _ _ _ _ _ „ 

453  FORMAT ( 1HL*22X*38H CUMULATIVE  PRODUCTION  (MILLION  S.C.F 
1 .  )  ) 

454  FORMA F (  1HK , 2 2X , 6HACTU AL ,  E  1  2 . 4 , 4X ,  10FC ALCUL A  TEC ,  EI2.4 
1  ) 

455  FCRMAT(lh  ,  9 X  ,  I  2 , 8F 6 .  1  ) 

456  FCRMATUh  »9X»  I2.11F6.1) _ _  _ 

457  FORMAT ( 1 H  ,9X, 12 , 18X, 8F6. 1 ) 

459  FORMAT { 1H9  , 3H  ) 


I  E  B  1  =  1 
IEE2=2 
I  EC  =  4 

C  PARAMETERS  OF  RESERVOIR  GEOMETRY  AND  INITIAL  CONDITION 

REAC( 5,1)  NA,NB,NN,MA,MB,MMI,PI,ZI,T,R,DX 
_ TF=T-46C.C _ 

NA1=NA-1 
N8DNB  +  1 

. .  N  N  L=  N  N  +  l . 

N  N  2  =  N  N—  1 
M  A  1  =  M  A-  1 
M  P  1  =  M  H  +  I 

MM  l  =  N  M  +  1 
MM2=MM-1 

.  ME  2  =  M  6  -  1  .  ..  .. 

N  6  2  =  N  B-  i 
KN1  =  NN-NA  1 
KM1=MM-MB 

KN2=NN-  1 
KM2  =  M  E-M A  1 

K  N  3  =  N  E-  1  . . . . . . . . __ . . . _ . . . _ . _ . _ _ _ _ 

l<M3  =  M  A  1—1 
NR  ITE (6,4  ) 

_ N  R  ITE (  6,422  ) _ 

NR  I  TE ( 6 , 42  1  ) 

NR  ITE ( 6 ,4  16  ) 

___  N  R  I  T  E  (  6 , 4  1  7  )  N A 1 , NB  ,NN  ,  MA 1 1  MB  ,MM ,  P I  ,  ZI  »  T  , R,  DX 
P  E  A C ( 5  ,  7  )  Cl *02  , PI* P2 
C2  =  C2/2 .0 

_ NR  ITE ( 6,4  16  ) _ _ _ 

NR  ITE (6,419)  D1,D2,P1,P2 
C  CONVERSION  FACTORS 

C  1  C  A  R  C  Y  =  6 .32  7  SQ.FT. *CP /(DA  Y* PSI)  . . 

C  X  =  C  X  *  5  2  8  C  .  C 

CU=1CCCCCC.C*452.0/ ( 359.0*520.0 ) 

_ CN=Cl*R*T/ ( 6.327*P2  ) _ 

NRITE (6,4  15) 

NR  ITE ( 6,4  ) 

NR  ITE ( 6,422  ) 

NRITE (6,421  ) 

NRITE(6,381)  PI 

NRITE(  6,382  )  ZI  
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_ WRITE(6,383)  TF _ _  __ _ 

WRITE(6,384)  DX 
WRITE(6,385) 

W  R  I  T  E  (  6 ,  386  ) 

Vs  R  I  f  E  (  6  ,  3  8  7  ) 

WRITE(6,3£8) 

C _ K*F_  ( C ARC  Y-F  T )  CATA _ _ 

READ  (5,3)  (  ( H (  l  ,  J  )  ,  1=2, NN),  J=2,FF) 

C  PFI*F  (FT)  DAT/! 

R  E  A  C ( 5  |  3  )  (  ( U (  I  ,J)  ,  1  =  2  »  NN  )  , J=2 , FF ) 

CO  3  C  C  1  =  1  ,  N  N  1 
M  It  l  )=C.CG 

. . F  (  IMF1  )=C»CG _ 

E  (  I*  1  )  =O.CC 
3 C C  E(  I  ,FFl  )=C.CO 
CC  3C1  J  =  2  *  F  F  1 
F(  1,J)=C.CC 
F  (  NN  1 1  J  )=C.CO 

_ E  (  It  J  )=C.CC _ _ 

3 C  1  E  (NNLt J)=C.OO 

C  ACTUAL  DATA  OF  K*F  ANC  PF!I*F  USED 

CC  111  1  =  1,  NN1 

C  C  111  J  =  l  »  F  F  1 
F (  I , J )=F (  I  , J  )  /ACC  .0 

U  1_U  (  I,  J  )=U(  I,  J  )  /  1C  ,C _ _ 

WRITE(4»415) 

WRITE (A, 425)  IEfil 
WRITE(4»413) 

WRITE(4,411) 

WRITE(4,412) 

CC  2  15  1  =  2  , N A  1  ______ 

IF  =  I-  l 

215  WRITE (A, 426)  IF,(L(I,J),J=2,FB) 

CC  217  I  =  N  A  ,  N  B 

I  N  =  I  -  1 

217  WRITE (4,428)  I  F  ,  (  U  (  l  ,  J  )  ,  J  =  2,FF) 

_  C C  2  15  I =  N B 1  ,NN _ 

IF=  I-  1 

215  WRITE  (4*43C  )  I  F  ,  (  0  l  I  ,  J  )  ,  J  =  F  A  ,  F  F ) 

_  WRITE(4,415)  __________ _ _ _ _ 

W R  I  T  E ( A  t  A  2 5 )  IEB2 
W  R  I  T  E  (  A  ,  A  1  A  ) 

WRIT£(4,411)  _ 

W  R  I  T  E  (  A  ,  4  l  2  ) 

CC  23  5  1  =  2  , NA1 
IF=  I-  1 

235  WR1TE(4,426)  l  F  ,  (  F  (  I  ,  J  )  ,  J  =  2  ,  F  b  ) 

CC  237  I =N  A , NB 
I F  =  I  —  1 

237  WRITE(4,428)  IF,(F(I,J),J=2,FM) 

CC  235  I  =  NB  l »  NN 
IF=  I-  1 

2  3  5  W  R  I  r  E ( A , A  3  C )  I F ,  ( F (  I , J )  ,  J  =  F A  ,  F  F  ) 

C 

C  SETTING  TFE  BOUNDARY  CONDITIONS  OF  TEE  RESERVG I R . 


I  I  (  »  ,  )  T  I  '  4 

X  I  ( A  3  £  t  y  H  T  i  > 

(  •  ,  )  1 T  I  v  .  d 
M  *  )  T  I  f  .4 
<  Y  B  £  ,  )  t  I  v  , 

(  1  ,  )  I  I  -V 

■  ! ,  (  :  i  -  i ;  I  J  !  ■ 

(  .  .  -  •  t  (  ,  ^  ♦  1 1  «  I  i  • )  )  p  ,  }  .  m 

t  (in  i'll  q 

(  >  w  f  (  •  .  =  }  t  {  «  I  )  )  (  ,  )  , 

I  A,  l  I  O £  ' 

J3. J*< I  ,  I  H 
.  J  =  (  f  MM 

b  3 .  o » *  j ,  j  n 

) .  J  =  (  !  -1,1)  3  r 

MV.S  =  C  I  j£  j3 
3  .  (1,1)  I 

>0. 3*  (  l ,  I  //)  H 

. 

j  .  3  =  I  t ,  l/l  )  3  1  j  £ 

1  i  J  H  ]  q  !  I  A  i  A  1  J  A  J  |  3 

i  I'M,  f  *  I  I  i  I  *)3 

I  v , J ■ ;  III  33 
U .  ..  A  \  (  t » I  )  -  (  L  ,  I  )  H 

.  i  \  u  ,  I  )  =i  ,  I  )  r  in 

(  <  i  ,  »'  )  Ml  W  ,-i 
'■  1  I  p '  V  A  ,  A  }  3  T  f  H 

(*!■,•)  i  I  1  J 
(  1  I  A  ,  A  )  J I  I  MW 

(  S  f  A  ,  )  1  I  )'/» 

(  >  /  »  \  =  I  Is  H 
I  -  I  =-  ■'  I 

I  -I ,  S  =  l  ,  (  L  ,  !  )  ;  )  ,  I  (  A  ,  A  )  J  I  1  v  v  ’IS 

,  A/*M  \1S  3 

I  —  I  -  I 

(  ,  =  l  ,(•,!)  J  )  ,  >  (  ,  )  ,  I  i  .  V  1  s 

A  ,  I  I  /■  =  I  f  l  S  J  I 

!  -  I  =  1 

t  .  =  i  ,  ( i  ,i)i,  i  (  (  a  ,  j  r  i  v ..  .*  j  s 

( c  1  -  ,  )  ’TP 

I I  (  n  a  ,  a  )  r  i 

(  A  I  A  ,  A  )  j  1  1  :  fl 
(  I  J  A  ,  i  -MW* 

(  .  f  A  ,  '  )  III  •'/ 

I  ,  S=  I  s  ’1 

-P  I 

'  »  .  =  U  »  (  i  ,  1  )  f  )  ,  ’  I  (  d  S  A  t  )  j  1  [  •.  c!  ’  S 

,  A  A  =  I  v  -  S  J  3 

I  ~  i  -  I 

(  ’  ,S  =  L,|  ,  1  )  i )  t  I  (  i  S  <  , *  >  J  r I  *  Tl  s 

,  pi  A*  I  ,■  \  3 

I  -  1  -  i 

(  .  -I  =  t  ,  U  ,  I  )  I  )  ,  1  (  t f  ,  A  )  I  „■  -vs 

‘  1  P  I  I  3  V  )  ;  !  T  1  !  ! 


_ CC  11  1  =  2, NB _ 

11  e ( if  l  )=o.cc 

CC  12  J=2,RAl 

12  _ AtNe,  J)=O.CC _ _ _ 

CC  13  I  =  N  B  1 ,  N  N 

13  B(I,RA1)=C.CG 

_ CC  14  J=MA,RM _ _ _ 

14  A  (  NN  ,  J  )  =C  .  C C 
CC  15  J  =  2  » R  B 

_L5 _ A(  1 «  J  ) =0  »  CC . 

CC  16  1  =  2,  NAl 

16  e(I,NB)=0.CC 

_ CC  17  J=Mfcl,MM _ 

17  A(NA1,J)=C.C0 
CC  18  I  =N  A  » NN 

_ 18  e  (  I ,  N  M  )  =C  «  CC . . . . . . . _________ 

C  X-ANC  Y-D IRECT ICNAL  AVERAGES  OF  K*F  VALUES 

CC  23  J  =  2  ,  N  A  1 

_ CQZ4_JL=_2,NB2 _ _ 

A  (  I  ,  J )  =  (H ( I , J ) +F { I  +  l, J  >  1*0.5 

24  B(I,J)  =  (H(I,J)+HI,J+1))*C.5 

...23 _ B(NB,J)  =  IHNB,J  l^KNB,  J  +  1  )  )  *  C  .  5 . 

C  C  2  5  J  =  M  A »  M  B  2 
CC  26  1  =  2  ,  NN  2 

_ A  (  I ,  J  )  =  (  H  (  I,J)+F(  I  +  1 ,  J  )  )*0.5 _ 

26  B(  I* J)=(H(I» J)+MIIi J+l>)*0.5 

25  B (NN, J  )  =  <F (NN, J  )  +F (NN  ,  J  +  l )  )*C.5 

CC  33C  1  =  2, NA1 _ 

33C  A ( I , M8  )  =  ( H (I , MB ) +H  < 1  + 1 , MB ) ) *0. 5 
CC  27  J=RB,RW2 

_ CC  28  I  =N  A , NN2 _ 

A  (  I,  J)  =  (H(  I,  J)+F(  I  +  l,  J)  )  *  0 . 5 
28  B(  I,J)  =  (H( l,J)+F(I, J+l) )*0.5 

2  7  BIN  N_*  J  )  =  i  F  (  N  N ,  J  )+KNN,J  +  l )  )*0.5 

CC  29  I=NA ,NN2 

2  9  A (  I ,  RR  )  =  ( F (  I  ,  R>R  )  +F (  1  +  1  ,RRI  )  )*C.5 
C _ IN1T  I  AL  RCLES  IN  TFE  RESERVOIR _ _ _ _ 

SUR  =  C  .0 
CC  34 C  1  =  2, m 

CC  34  C  J  =  2,NM  _ _ _ _ _ _ _ 

34C  SUR=SLR+U ( I , J ) 

ERCLS=SUR*(CX*CX/(R*T )  )*P  I/Z  I 

c _ 

REAC(5,452)  NT 
CC  2CCC  NSET= 1 , NT 

R  E  A  C ( 5,449 )  DT  ,  PR  IN T, FDAY , FAC  TOR  . . 

WR  ITE ( 6 ,45 1) 

WRITE (6,4  50  DT,  PRINT, FDA Y,FACTCR 
_ CT2  =  CT *2  ._C _ 

CE=CX*CX/(P2*6.327*CT) 

CC  342  1  =  1  , NN1 
CC  342  J=  1  ,RM.l 

E ( I , J ) =  U (  I , J )  *C  E 
342  PZ ( I , J )  =  P  I/Z  I 

C  PRODUCT ICN  RATES  CF  WELLS  (RILLICN  STD  CU  FT/DAY)  I.E. 


1  AT 


<  ' .  =1  II  13 

,  I  )  1  J 

I  A  *■ ,  V.  =  L  £  1  n 

) .  =  (  ,  >  A  N  f 

’  t  I  =1  i  I  )  3 
U  J  •  J  =  (  I  A  ,!H  £  I 

.  .  =1.  -  I 

’  0  * .  )  =  (  L  ,  A  A  }  \  A  ( 

■  ,  =  ,  l  1 

J  .J.  {  »  1  )  '•  I 

I  A  «  S  =  1  3  I  I 

33.  )=(  39,1  )  3  1 

'  t  I  =.-  SI 

J.  )  =  (  L  ?  1  /  )  A  VI 

r  , A / = I  4  1  )  1 

!!.  ■  =  (  '  '1  ,  I  )  i  '  f 

'  v  '  I  -  Y 

=  l  ES  13 
J3 

.  .  (  ( l  ,  I  +1  )  HM  l  r  I  )  >  )  =  l  t  «  I  )  a 

<?.)*(  ll+t»l)  I  +  (  L  t  I  )  U  =  (  L  f  I  )  4  A  ^ 

.  ;  (  V  !  +1.  .  I-IHU  !  )  t  )  =  (  t  .  A  )  ‘1  ‘  S 

^  H  M »  A  M  =  U  J  3 

Stf*,S=J  d£  33 
.  U  L  ,  I  f  1  )  1  +  (  t  t  1  )  >  )  =  <  L  ,  I  )  \ 
e.vM([+i,iriMt,m)  =  (Uh 
.  ‘  {  {  J  + 1 ,  1H+I  t  )  3 )  =  (  t  ,  /  / )  3  ?  S 

i .  t c  =  i  e  f  i  j 

.  •  (  (  ,  +  n  m  » i  >  u  -  t  ?  i  )  a  r 

shh.mssl  v  s  j:i 

9  *  A ,-  =  I  >s  J  3 

e  .  0  *  (  (  Ihiuim 

(  U  +t  ,  1  )  !♦  ( t  ,  I  )  U  =  i  ,1)3 

.  M  I  i  +  L  ,  .  a )  <+ (  , .  ) 3 )  =  ( L , //  )  6  \  ^ 

St  /,  AZ= I  3  3 
.  •  (  (  '  * , I +1)  1  +  (  ,!)!)  =  (  ,  i  )  A 

>i  I  3V«32Jfl  3  11  M  2_3J3M  JAIT1/1  3 

3. 3  =  4J2 
,  S=1  3  At  3 

=  L  3A£  33 

(  L  ,  *  )  J  +  v  J  t  -  -i  3  2  DAC: 

,  ’  \  1  (  {  l  *  )  \  ')  *  X  )  •  ‘  3  2  -  2  J  J  '  » 

t  -  (sc»>.eKMan 
T  /  ,  f  =  T  .12/  3J3S  33 
■  !  .  1)1  i  ,  1  I  tlH,  T  <  (  )'  2  KIAJH 

(I  J  a , A  H  T 1 «  W 
T  I ,  i  .  T  ‘  i  ,  1  (  1  ,  3  )  1  i  I  % 

.1  =  S  T  i 

(1  •  \  \  l.  .  •  )  \  h  )  *  1=13 

I  /, 1=1  SA£  33 
I  A  ,  [  =  l  S  A  ‘ 
i  3  ♦  (  L  ,  !  )  J  =  I  L  ,  1  )  H 

I  ‘  \  J  9  =  <  i  ,  I  >  S  9  S  A 

t  \  I  !  •  1  J  - 1  :  )  '  J  J  «  i  ..!  .  ’  ’  :  I  I 

I  1 


C  14.7  P  S I  A  AND  520. C  DEGREES  RANK  I NE 


1  2  C 

CC  3  20  1  =  1  , NN1 

CC  120  J  =  1 ,  P  M  1 

W (I,  J  )=C.C 

READ  (5,5)  ((W(I,J),  1  =  3, NN,  2),  J=3,PM,2) 

CC  125  1  =  3, NN, 2 

CC  125  J=3,PP,2 

125 

W  (  I ,  J  )  =  W  (  I ,  J  )*FACTCR 

WRITE (6,420 ) 

WRITE (6,411) 

WRITE ( 6 , 4  C  7 ) 

CC  460  1=  2 , N A  1 

IP  = I-  1 

460 

WRITE(6»455)  I  P ,  ( W (  I  , J  )  , J  =  2  ,  P B ) 

CC  462  I  =N  A , NB 

I  P  =  I  -  1 

462 

WRITE  (  6,456  )  IP,  (W(  I,  J)  ,J  =  2,PPI) 

CC  464  I  =NB 1 , NN 

I  P  =  I  -  1 

464 

WRITE(6,457)  IP,(W(I,J),J  =  PA,PP«) 

RATE=C.C 

CC  118  !  =  3 , NN , 2 

118 

CC  118  J=3,PM,2 

RATE=RATE+W( I, J ) 

W (  I, J )=W (  I , J  )*CW 

C 

WR ITE (4 ,8  )  IBC 

N  K  K  =  C 

35C 

T  I  PE  =  0.00 

CCNT  INCE 

NKK=NKK+ 1 

352 

Cl TPLT=C.C 

CUTPLT=GUTPCT+CT2 

T  IPE  =  T  IPE+CT2 

c 

c 

FCRWARC  SWEEP 

Cl*X*X  +  C2*X  +  C  3  =0.0,  X  =  P/Z  =PZ(I,J) 

CC  31  J  =  2  ,  P  A  1 

CC  31  1  =  2, NB 

PPZ  =  PZ(  I,  J)*PZ(  I,J) 

A  B  =  A (  I  -  1  , J)+B(  I  *  J—  1  ) 

C  1=C2*AB 

C  2  =  E (  I , J ) +C 1*AB 

C3=A(I-l,J)*(D2*PZ(I-l,J)*PZ(I-i,J)+Ci*PZ(I-l,J))+B(I, 

1  J-l  )  * ( C2*PZ ( 

1  I ,  J-l  )*PZ<  I  ,  J-i  )+-Dl*PZ  (  I  ,  J-i  )  )+-A(  I  ,  J  )*(D2*(  PZU  +  1,  J  )*P 

1Z ( 1+ 1 , J )-PPZ 

2 )+Cl* ( PZ (  1  +  1  ,  J  )  — P  Z  (  I,  J) ) ) +B( I , J )*(D2*( PZ ( I, J  +  l )*PZ (  I , J 
l+l  )-PPZ  )  +C  1=5= 

3(PZ(  I, J+l  )  —  P  Z (  I  ,  J  )  )  )  +  E(  I  , J  )  *  P  Z (  I  »  J  )  -  W  ( I ,J) 

C  3  =-  C  3 

IF  (Ci  .GT.C.C )  GC  TO  32 

PZ  t  I  ,  J  )=-C3/C2 

32 

GC  TC  31 

RCC  T  =  SORT (02*02-4.0*0 1*0  3 ) 

0  12  =  2 .0*01 

!  ■  »  I  -  1  ;  s  i  j  1 

I -A , I  *  L  Oil  33 

.  =  (  L  ,  I  J  4  'Si 

(  S,  ♦  •  =L  «  (  '  ,  ,  f  =  !  ,(  L  ,1)./)  »  (  f  )  I 

Si  ■  ^  -  I  C*  S  I  J  I 

,  L  >  I 

’  '  i  (  * 1  )  ,  M  „  ,  i  )  -  ■  u 

(  .  ,  )  :  M  W  V 

(  !  I  A  f  '  M  FI  .v 
(  \  3  A  »  3  )  IT  I  9  X 
I  A  ,  >  =  !  ;)  3  A  31 

J  -  I  =  I 

{  -i  .  H,lL,t)  ,),  J  (  ,  )  IT  1  y  ,  3  3. 

i  ,  A  A  =  J  S  3  A  3  1 

:  -  .  -  i 

(  »S»Lt  (  L  t  1  )..)»■'■  I  (  1  A  »  '  )  J  I  1  v  S3  A 

4  ♦  I  M  1  A  3  a  3 

I  -  I  =  i 

(  M  .  -  l  t  (  i,  f  I  )•■)»•  !  (3  ♦  )  ■  T  I  •  -J  A  3  A 

).3=3TAfl 
,  4  ,  c  =  !  3  f  I  I 

,  ,  1  -  i.  f  1 

|L,1),3  f  =  3  I  A 
v  (1,1)  =  (  '  t  I  )  4  91! 

3 

(  ,  )  i  T  1  •  « 

•  =  a 


.  3  -  ?  I  f 
)  Ml  T  /  JD  3?£ 

[  t-  <  3  ^  =  -  M 

3 . 3*Tjq  T  J  3 
r  >  1  i  i  t  j  j  f  4iji  s  1 

c  1  *  I  T  =  3  ^  I  T 

M  j  j  r\  Z  j  W  A  *  H  3  3 

(LtlJ3M=  3\'-X  ,j.  -  13  +  :•  3  *-  *  x  '•  I  3 

(  4  ,  S  =  l  1  £  3  ) 

A  r  S  *  1  J  £  .1 

t  L  ,  i  )  \  1 1  (  L  ,  n  \  3  =  \  .  I 

(  I  ~ !  .  ,  I  )  M  l  ,  i  -  I  )  A  =  •  3 

iA*S3*I3 

!  MLill  = 

*  )  M  (  ,  1  -  1  )  I  M  ,  -  i  )  *  (  ,  -  I  i  i  ••?  (  ,  J  —  1  ) 

)  ).=  (:- 1 1 

<  '  »  )  >  )  (  •  I  )  Mil-  ,  !  )  ■  [  +  i  -  ,  I  )  ,  ;  |-  ,  I  [ 

-(  l  ♦  H-I  )  M 

■  1  )  (ti  )  ( (  .  1  )  -  <  1  ) 

•  f  ♦  (  S  -  l  I  ♦  1 

‘  >.  »  )  -  (  til  •  (  .  i  )  Ml  ,  I  )  -  (  [  f  .  ,  I  )  I  )  : 

)-=.1  : 

H  n  {  o.  ').  1  3.  I  3)  II 
3  1  \  1  -  =  (  t ,  I  )  3  1 

i £  3r  )3 

(  t  .  •  .  )  •  =  f  -  ;  j 

r  ::  .  4  = S  I  3 


FZ  (  I  t  J  )  =  (  RCCT-C2 )  /C  12  _  _  __ 

31  CCNTINUE 

CC  33  J=NA,NB 

CO  33  1=2  i  N  N  _ 

F  P  Z  =  F  Z ( 

^  B  =  /&  (  1-1 , J ) +B( I , J-l } 

C  1=C2»A6 _ _  _ 

C  2  =  E (  I , J ) +  C 1*AE 

C  3  =  A  ( I-1»J)*(D2*PZ( I-1»J)*PZ( I-l,J)+Cl*PZ(I-l»J) )+B( If 
1 J-l )* (C2*PZ ( 

II, J —  1 ) *  P  Z (  I , J-  l )  +C  1  * P  Z ( I ,J - 1  )  )  +  A ( I» J  )* ( D 2  * (  P  Z (  I+T, J ) *  P 
1Z ( 1  + 1 , J ) -PPZ 

2 ) +  C 1  * ( PZ (  H1,J  )-PZ  (  I,J)))+B(I,J)*(02*(PZ(I,J+1)*PZ(  I  ,  J 
1  +  1 )-P P  Z ) +C  i* 

3  (  P  Z  (  I  »  J  +  1  )  —  P  Z  (  I  ,  J  )  )  )  +  E  (  I ,  J  )  *  P  Z  (  I  ,  J  )  —  V%  (  I  ,  J  ) 

C  3  =-C  3 

PCCT=SCRT  (C2*Cl-4.0*Cl*C3')“ 

C 12=2 .C*C  1 

_ F_Z  (  I  ,  J  )=  (  RCCT-C2  )  /C  12 _ 

33  CCNTINUE 

CC  34  J=FBlfMM 

_ _ _____  CL  34  I«NA ,NN  _ _ _ _ _ 

PPZ=PZ (  l  ,  J  )*PZ( I , J ) 

A  B  =  A{  1-1,  J)+B(  I, J-l) 

_ C  1=C2*AB _ 

C  2  =  E (  I , J ) +C1*AB 

C3  =  A( I- I, J)*(D2*PZ( I-L,J)*PZ( I-1,J)+C1*PZ( I-l,J)  )+B<  I, 

1J— 1 ) * ( 02*PZ (  _ _ _ _ 

lit J~1  )*PZ(It J-l )+Dl*PZ(It J-l) )+A( I, J)*(D2*(PZ( I*lf J)*P 
1Z  (  1  +  1  ,  J )  — PPZ 

2) +  C_l*J PZ  (  I  41, J )-P z (  U  JJ  n +8(1 , J ) »(C2*(PZ(  I  , J  +JJ  *PZ (  I  ,  J 

" 1+ 1 )  —  P  P  Z ) +C1* 

3  (  P  Z  (  ItJ  +  1  )-PZ(  I  ,  J  )  )  )  +  E(  I  ,  J  )  *PZ  (  I ,  J  )  — Vn  (  I  »J) 

C3=-C  3 

RCOT=SGRT ( C 2  * C  2—  4  • 0  *C  1  * C 3  ) 

C 12  =  2 .C*C  1 

_ PZ (I,J)  =  ( RCCT-C2  )  /C  12 

34  C CM  INUE 

C  REVERSE  SWEEP 

NSW=NSW+1 
C  C  4  C  J  J  =  1  »  KM l 
J  =  PP  1-J J 
CC  4  C  I  1= 1 , KN  1 
I =NN  1-  I  I 

F  P  Z  =  F  Z (  I  »  J  )*PZ (  I  ,  J  ) 

A  e  =  M  I,  J  )+B(  I,  J)  _______________ 

C1=C2*AH 
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_ C  3  = —  C  3 _ _ _  _ _  _ 

IF(Cl.GT.C.C)  GC  TC  39 
P Z (  I, J)=-C3/C2 
GC  TC  40 

39  RCCT  =  SQR  T ( C2*C2-4.0*C  1*C3 ) 

C  12=2  .C*C  1 

_ PZ  (  I  ,  J  )  =  (  RCCT-C2  )  /Cl 2 _ _ _ 

4  C  CCNTINUE 

CC  42  J  J  = i »  K M 2 

J=MB  1-J  J  _ _ _ _ _ _ _ _ _  ___  _ _ 

DO  4  2  I  I * 1 , K N 2 
I  =  N  N  1  —  I  I 

_ PPZ=PZ (  I  ,  J  )*PZ  (  I  ,  J  ) _ _  _ 

AB  =  A{  I »  J  )  +  B  (  I  f  J  ) 

C  1=C2*AB 

C2  =  t (  I  t  J  )  +01*AB 

C3*AtI ,J)*(02*PZ ( I  +  l* J)*PZ< I  +  lt J)+D1*PZ( 1+1, J) )+B( I  * J) 
1* ( C2*PZ (  I  ,  J  + 

1 1  )  *PZ (  I  t  J  + 1  )_± D1*PZ  (  I«  J+l  )  )  +A(  I-  1_,  JJ_*  (D2*  ( PZ  (  1-1 ,  J  )  *  PZt 

I  I  -  1  ,  J  )-PPZ)  + 

2C l * ( P  Z (  I- L  t  J  )  -P  Z (  I, J)  ))+B(ItJ-l)*(C2*(PZ(I,J-l)*PZ(I,J 
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_ RCCT  =  SORT  (C2»C 2-4,0 *0  1»C 3  ) _ _ 
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42  CONTINUE 
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I  =NB  1  -  I  I 

PPZ  =  PZ (  I  ,  J  )  *PZ (  I  . J ) 

A  B  =  A  (  I  ,  J  )  +BJ  I  ,  J  ) 

C  1*D2*A8 
C  2  =  E (  I »  J ) +  C 1  * AG 
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C  3  =-C  3 
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_ UR ITE ( A ,4  1C  )  C  T  2 _ _ _ 
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URITE(4,4C5)  TIRE 
VvR  ITE  (  4 ,4  I  1  ) 

VvR  I  T E  (4 ,40  7  ) 

CC  3  6  2  I=2»NA1 

I  R  =  I  -  1 _ _ 

362  URITE(4,44C)  IR,(F(I,J),J=2,RB) 

CC  363  I=NA,NB 
IR=  I-  1 

2  6  3  U  R  I T  E  (  4 , 4  4  1  )  I  R  ,  (  F  (  I  ,  J  )  ,  J  =  2  ,  R  R  ) 

CC  364  I =Nfi 1 , NN 

_ IR=  I-  1  _ _ _ _ _ 

3  64  URITE(4,442)  IR,(F(I,J),J=RA,RR)_ 

UR  I  TE ( 4 , 6  )  IBC 

C  FINAL  ROLES  IN  THE  RESERVOIR 

F  MCL  S  =  C  .  0 
CC  3  70  I  =  2  *NN 

_ CC  3  70  J  =  2, RR _ 

370  FRCLS  =  FRGLS  +  U(  I  ,  J  )  *  PZ (  I  * J  ) 
FROLS=FMOLS*DX*CX/{R*T) 

CVCL  = ( BRCLS-FRCLS  )  /CU 
P  RCC  =  R  A  7  E  *  7  IRE 
GB ( NKK, 1 ) =T IRE 

_ GB  (NKK,  2  )  =  PRCD _ _ _ _ 

GB (NKK, 3  )  =C VCL 

GB (NKK ,4 ) =  PROD / C  VC  L 
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NKK  7  =  NKK 
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SIMULATION  CF  TVvC-PFASt  FLOW  IN  GIL  RESERVOIRS 
SOLVED  BY  ACEP 

»»*»  V  V-  V*  */- 

Y'l'T'T’TT'fVY 


THIS  PROGRAM  IS  DESIGNED  T C  STUDY  SIMULA!  ICN  OF  A_ _ 

WATER- INJECTED  OIL  RESERVOIR  BY  A  TWO-DIMENSIONAL 
MATLEMAT  ICAL  MODEL.  A  FIVE-SPOT  MODEL  IS  CONSIDERED 
FOR  WATER  INJECTION,  COMP  R  E  S  S  I  B  I  L  I  T  I  ES  CE  ’WATER  AND 

OIL  ARE  TAKEN  INTO  ACCOUNT, 

NEWTCN-RAPESCN  ITERATIVE  PROCEDURE  IS  USED  TO  SOLVE 
TEE  SIMULTANEOUS  NONLINEAR  ALGEBRAIC  EQUATIONS 

*  £  *  *  *  *  ❖  $  « *  *  $ 

NOMENCLATURE 


C  A(  ,  )  ELEMENTS  OF  COEFFICIENT  MATRIX  OF 

C  SIMULTANEOUS  EQUATIONS 

C  AOt AUf MOtSMAXKC  CONSTANTS  OF  RELATION  BETWEEN  RELATIVE 

C  PERMEABILITY  OF  MEDIUM  TO  OIL  AND  WATER 

C  SATURATION 

C  BCtBltMWtRSW _ CLNSIANTS  OF  RELATION  BETWEEN  RELATIVE 

C  PERMEABILITY  OF  MEDIUM  TO  WATER  AND 

C  WATER  SATURATION 

C  BSyBZERO  FORMATION  VOLUME  FACTORS  AT  PS»PZERO  _ 

C  CAI#CA2»CA3» PSM IN  $  0.14  . L E •  SW  ,lF.  0.20 

C  CB1,CB2,CB3  *  0.20  ,LE.  SW  .LE.  0.50 

C  C  C  1 ,  C  C  2  _  __  *  0 .  5_0  .  LE.  SW  .LE.  0.76  _ _ 

C  CClfCC2iCC3  *  0.76  .LE.  SW  .LE~.  1.0 

C  CC,CW  COMPRESS  IB IL I TY IS  CF  OIL  AND  WATER  RESPY. 

C  CONSTANTS  IN  CAPILLARY  PRESSURE-SATURATION  RELATION 

C  C T  T I M  E  S TE  P  l DA Y  S  ) 

C  CX  =C Y  =  SPACE  STEP  (FT) 

C  FACTK _ _ PERMEABI  L  I  TY  CAN  BE  CLANGED  BY  FACTK _ 

C  F C A Y  “  PER’lCC  FOR  WHICH  RESERVOIR  HISTORY  IS 

C  DESIRED,  DAYS 

C  E  X  (  ,  )  ,  E  Y  (  ,  )  X-  AND  Y -D  1 R EC T  I  ON A L  AVERAGES  OF 

C  PERMEABI Tl  INFORMATION  HEIGHT 

C  FORMATION  HEIGHT 

C  I  PC  ,  I  PW  ,  I  SW _ INI  T  IAL  VALUES  CE  PC,PW,SW _ _ 

C  NW  NUMBER  OF  CYCLES 

C  NT  NUMBER  OF  DATA  SETS 

C  0U02  CONSTANTS  IN  PRESSURE-VCLUME  RELATION _ 

C  FOR  OIL 

C  PC  CAPILLARY  PRESSURE  (PSIA) 

C  PC(  ,  )  OIL  PRESSURE  (PSIA) 

c  PW(  ,  )  WATER  PRESSURE  (PSIA) 

C  PS,PZERC  SATURATION  AND  ORIGINAL  PRESSURES  CF  OIL 

C  CCj  »  )  PRODUCTION  RATE  OF  OIL  FROM  A  WELL  ( BBLS 

C  AT  l  PC  PSIA 

c  cw(  ,  )  INJECTION  RATE  OF  WATER  INTO  A  WEL L ( BBL S 

C  AT  IPO  PSIA 


I  /  I  3  .  J  7 


9  -  i,,'  I  ‘I  1  /  [  f  A  J  M  I  2 

9  3  A  y  9  3  \/  J  J  2 

:■■  ;  :=  •:=  ,t  ;<  • 


J  1  T  I  ;i 


:  t  •  I  l « i  I  9:  W  2  ]  i  I 

-  ,  1  :  I  J  I  1 

:  j  t2-  'ii  a  .  j  i  o  i  ;  ,  i  r  a  ’ 

<  i  •  n  1 1  i  *  1 22  .  j  •  ■ ) i  f  i l  i  i  m 

.i  .  i  / 1  i a *.  r  jxa  j  1 1 
1  j  :,I*  "•  :  :  1  ’  :  - . "  -  r  tl  1 

.  i  ’  .  J.  1  1 A  V  ,  i  :  .1  /./  rj  J  •*.  f  l  .  i  ! 

>  -r  f  $&&&$#$* 

i  f  I  A  J  .)/!  :i  9 

'  ’  'A  l;  /•  I1  >' 

I  .  -if'  T/l  1  J  l  j  :  .  b  I  2  !  ;  9  :  I  J 

2  I  T  At  Ji  2U  3  3  iATiJHI  2 

'  T  A  1  2  /  O 
YTIJIMAj 

3  I  7  AH3 1 A2 
10  2  7  K  A  ' 

Y  T  1  J  1  i  A  i  -  h  .,h 
III  \9'J7  A 2  J  T 
*  J  J  Y  /  0  I  T  A  V  VI  .1  \ 


T  .1 


1 7  J  -j  .17.  j  , 


( 


t  ,  .  '  i 


»  .  '■  *  !  »  ■ 


I 


5  S»  H  T.  2  9.  7 ..  .  I 


)v-3V,  .2b 


S  .  .  3  j . 

v  2  .  J  .  »M  .  0 

i 

.13. 

)  3 .  s  33,  1  O 

>\  .  .  1 J  . 

«  2  .  9  J  .  )  c‘  .  0 

3  3, 1  .'3 

.  .  . 

.  J  i  .  V  . 

9A  J  1  j 

-ii  2  i  Y  T  1  J1  1  1  22  .  •  ■.  9  (3 

>3,33 

‘  )  I  7  AfljU  1  A 

2  7  /.A  7  2/  33 

(  <  r  1  )  9  IT  1  :l  9  1  7 

T  3 

ili)  9  .  I  2  339  y  = 

X  3 

<  i  i  .  /A  O 

/'  A  .  y  1  1  j  |  j  ‘  .  . 

■  T  3  *  7 

V  V  1 

I  1 V >  i23  :  1  H  .  )9  1  i  4 

Y  A  7 

y  ■  .  ♦  ■  '  -  i  .•  i 

i  i  -  i 

< 

.  )  V  i  ,  {  .  >  X9 

I  !  i  .  :  1  I  •  J  3  ^  Y  f  J.  J  1  1  V  i  A  i  ’  I 

M.  i  j  II.  .  •  I 

)  •  I  )  3UJ  .  /  J  17  I  I 


,  ^  . 


!  t  <91 


2  IJ3Y3 
I  .  A  I  . 

•| .  ~  .  ! 


J  .1 


(  U 4  I 


( 


T  12  2  )  3 

J  I  3  >  7  I 

J2  2  >‘H  Y  HA  i  J I  940 
I  ’  9  )  J  -  J  2  2  J  I  J  I  I 

(  I  i  • 1  ■  *2  2  -  >*9  '  <  T  \ 

; 

IV  f  J  I  n.i  9  I  A>  J I  T  jjll  q 

1 2 ‘ .  jm  r 

. 

■  I  M  IS  I  I  A 


.391 
rf/1 
7  2 

,1 


(  .  )  J  7 

l  • 

3fc3S9 . 29 
I  .  17J 


( 


)  J 


3 

3 

3 

3 

3 

3 

3 

3 


C  GCIL _ TCTAL  PRODUCTION  R  ATE  OF  FLUIDS _ 

C  { £  B  L  $  AT  IPO  PSIA/DAY) 

C  CWATER  TOTAL  INJECTION  RATE  OF  WATER  INTO 

,_C _ _ _ _ RE  SERVQI  R  BBLS  AT  IPC  FS  I  A/DAY  ) 

C  RSW  SATURATION  OF  WATER  BELOW  WHICH  KRW=0.0 

C  SMAXKC  SATURATION  OF  WATER  ABOVE  WHICH  KRC=C.O 

C  SW(  «  ) _ WATER  SATURATION  (FRACTION ) _ 

C  TIME  TINE  (CAYS) 

C  VISC,VISW  VISCOSITIES  OF  OIL  ANC  WATER  (CP) 

C  VC  TCTAL  OIL  VOLUME  INITIALLY  IN  RESERVOIR 

C  EELS 

C  VPT  TCTAL  PORE  VOLUME  OF  RESERVOIR  (BRLS) 

C  VW _ TCTAL  WATER  VOLUME  INITIALLY  IN  RESERVOIR 

C  EBLS 

C  W 1 » W  2  CONSTANTS  IN  PRESSURE- VOLUME  RELATION 

C . . . FOR  WATER 

C  WCR  RATIO  OF  (WATER  INJECTEC/QIL  PRODUCED) 

C  XC  ,  Y C  »  ZC  CFANGES  IN  PW,PC,SW  CALCULATED  IN  EACH 

C_ITERATION 


C  TFE  FCLLCWING  FACTORS  ARE  DEFINED  SO  THE  EQUATIONS 

C  MAY  EE  GENERALIZED  FOR  ALL  POINTS  INCLUDING  BOUNDARY 


C  POINTS.  _ _ _ _ , _ 

C  WF (  T)  ,  XF  (  I  )  ,  YF  (I)  VOLUME  FACTORS  TO  BE  USED  FOR 
C  FRACTIONAL  CELLS  AROUND  BOUNDARY 

£ _ GRTD  POINTS _ 

C  eXl(I),EX2(  )  *  WEIGHTING  FACTORS  ON  FLUX  TERMS 

C  IN  X-DIRECTICN 

C  BVK  )  ,BY2(  )  *  WEIGHTING  FACTORS  ON  FLUX  TERMS 

C  IN  Y  —  DIRECT  ION 

C 

CCMMCN  PW ( IS , IS ) , PQ( 19 , 19  )  , SW (  19,  19  )  ,QW( 19, L9 )  , QQ( 19, 1 

IS  )  f 

A  FW  (  19 1 19 ) ,FWC ( 19, 19) ,FO( 19, 19 ) ,FOC ( 19, 19 ) ,HX( 19, L9  )  » 

B  HYJ 19tl9)«A(4»4)tAZ(4)»Xl(9)»X2(9)tYl 19) tY2(9) ,WF(9) 

C  C  M  M  t  i\  HK W  IM  *HKW  JM  ,  HKW I P*  HKWJP  f 
A  FKGIM,FKCJM,HKGlP,HKCJP,SIM,SIP,SJM,SJP,XfY,Z»IJ»ItJt 
_ 1RSW, _ 

B  RSW2 ,XC,YC,ZD,VISW,VISC,Q0IL,QWATER,V0,V12,U0,U12, IT, 
1  I  TM 

Ct JT, JTM, JTP, ITP»M«VF*  PCGRAD , BO»  Bl,B2«B3tBl2,824,AO»Al, 
C  A  2  *  A  3  ?  A  4 1 A  C  2  *  A  2  2  t  A  34  *  A  04  *  0  0  »  D 1 » D  2 1 D  3 1 04 1  DO  2  f  B Z  E  RO  »  C  A 1 
l  ,CA2 

_ E  ,CA3,Ce).,CB2,CL,3,CCl,CC2,CDl,CD2,C03,PSMIN,SMAXKG,C03 

12, 

F  CA12*C612?SM!AXK2tMC»MCM»MW»MWM 
DIMENSION  KJ8(  9  )  *K JE ( 9 ) >K I  6 ( 9  ) , KI E (9  )  ,  ITER  (  19»  19  )  2  S  TOR 
1(19 

A  ,19)  ,XF(9)»YF(9)tBXl(9)  ,BX2(9),BYI  (9)»BY2(9) 

_ _  DIMENSION  L  J  B ( 9 )  , L  J  E ( 9 )  ,LIB(9),LIE(9) _ 

CIMENSICN  WP 5 (  ICCC) ,WP10(  ICC0),WP15(  1CC0) 

REAL  IPC ,  IPW , ISW, IMASSW, I  MAS  SO,  INJECT, I TERX, ITERY,  I  TER 

_ 1Z _ _ _ _ _ _ _ 

REAL  PCfDENSWfCENSOtT 
C  WATER-FLCCC ING  CF  OIL  RESERVOIRS 

C _  SCLLTICN  CF  SIMLLTANEOUS  NCN-LINEAR  PARTIAL  DIFFERENTI 
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1  f  C  R N  fl  T  (  1 F  ,  9F8 . 5  ) 


2  FCRNAT ( 1H  ,8F8.5) 

3  FCRNA  T (  1H J  ,  39FNC  .  CF 

ITERATIONS 

EXCEEDS 

100  ,  I  ,  J  =, 

12  14  ) 

4  FCRNAT (  IF  1 ,96H  IT  JT 

I  PO 

I  PW 

I Sw  RSW  B 

IEL (S  IC  )  QC  IL 

C,  CWATER  AT  27CCPSIA 

WOR  CX 

DT 

F  C AY  ) 

5  FCRNA  T  (  IX  ,  2  I  3,  F8  .  1 , 2F8.4,  F6.  I  ) 

6  FCRNAT(  IX  ,  213, 2F8. 1,2F8.4,  3  F  1 1  . 1  ,F5.2,2F6 

1 . 1 , F€ .C  ) 


7  FCRN  A  T  (  IX  ,  5b  13.5  ) 

8  FCRNATt 1HJ,89H  V  I SW  VISC  CW  CO 

_ 1 _ UC _ _ _ _ _ 

C  L  L  VC  VI) 

9  FCRNATt  1H/,  1 OE  13.5) 

1CFCRNAT(IFJ,74H  CELX  CfcLV  OFLZ 

1  ITERX 

C  1  F  ER  Y  ITERZ) 

11  FCRNAT  (  1FK  ,  13X,93HN  A  T  R  I  X_  OF  P  H  I  *  H  (  P 

1C  R  C  S  I  T 

CY+FCRWATION  HEIGHT)  (FT)) 

12  FCRNAT(  IF  ,  13,  1X,17F7.3) 

13  F CRN  AT (  1HL,8X, 1  10HM  A  T  R  l  X  0  F  K  *  H  (PE  R 

IN  E  A  B  I  L 

CITY*FCRNATICN  HEIGFT  )  (DARCY 

1  -  F  I  )  ) 

14  FCRNAT (  IX  ,  9F8. 3  ) 

15  FCRN AT (  1H  ,8F8.3  ) 

16  FORMAT i 1HS ,  7X,18I4) 

17  FCRNAT (  IF J  ,  124F  AC  A1  A2 

1 _ A3 _ 

C  EC  El  B2  C A 1 

1  C  A  2 
C  C  A  3  ) 

18  FCRNATt 1H ' ,  2H  ) 

19  FCRNAT(  IF/,  13,  IX,  17F7.C) 

2C  F  CRN  A  T  (  IF  ,32X,55FW  ATER  PRESSURE  N!  A  T 

1R  I  X  (  P 
CS  I  A  )  ) 

21  FCRNA T (  1FK  ,  34X  ,  5  1FC  I  L  PRESSIR^  MA  TRI 
IX  (  PS  I 

CA  )  ) 

22  FCRNA  T (  1HK  ,24X , 73FN  A  T  R  I  X  OF  FRA  C  T  I  0  N 
1A  L  WAT 

CER  SATURATION) 

2  3  FCRNAT (  IF  /  ,13  , I  X , l 7 F 7 . 3 ) 

24  FORMAT ( 1HL > 34X , 20NMATR IX  OF  ITERATIONS) 

25  FCRNATt  1HS»2F8.4,6£13.4) 

26  FCRNAT (  1FS,3E14.5) 

27  FCRNA1  (  1 H  ,A6X,11F'T  IKE  =  ,F6.C,10H  DAYS) 

28  FCRNAT  (  IX,  1813) 

29  FORMAT ( IX, 8E 1 6 . 5 ) 

3C  FORMAT ( IX ,2 13) 

31  FCRNAT (  1 F  2 , 9  H  ERRW = , F8 . 2 , 9H  tRRO=,F8.2) 

32  FCRNAT (  1X,4E15.7 ) 
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_ 13  FCRMAT{1FJ,2H  ) _ _ _ _ _ _ 

34  FORK  AT ( 1HK*2H  ) 

35  FORMAT (  1 F  L  »  2  H  ) 

36  F  C  R  M  A  T  (  1 F  2 ,2JH  ) 

3  7  FORK  A T (  1H 1 , 2H  ) 

38  FCRKAT ( 1HL»11X,68HJ  123456789 

1 _ H _ 1 1  12 _ 

C  13  14  15  16  17) 

39  FCRKAT (  1HS , 10X ,2H I  ) 

4  C  FCRKAT (  1HJ,4X,  1  17F  J  1  2  3  4  5 

1  6  7 

C  8  9  1C  11  12  13  14  1 

_ 15 _ 16 _ 

C  17) 

41  FCRKAT  (  1  Hi  S  »  3  H  I) 

42  FCRKAT (  1F/,2H  ) 

43  FCRKAT!  IX  ,  F 6 . 3 , 3 F 6 . 67 F7.0 ,  F  5 . I ) 

44  FCRMAT(1HJ,10X,I4,3F7.C,2X,I4,3F7.C,2X,I4,3F7.0) 

4  5  FCRKAT (  1FL  ,  19X,4hERRW,32X,4Fi£RRG) _ 

56  FCRKAT!  lFiJ,  15X,  5612.4  ) 

57  FCRKAT  (  IF  2  »  1  5X ,  5  6F  INJECT  BKW  WATER 

_ _ _  1  PRQCUC _ _ _ _ _ ________ _ _ _ _ 

C  C  IL  ) 

58  FCRKAT!  1FJ, 15X,3E13.4 ) 

_  59  FCRK A  T (  1HL  ,  15X,37F  VPT  (BBL  )  VC  (  BBL ) _ VW  ( BBL ) 

1  ) 

6  C  FCRKAT!  1H2 , 45X  ,  SFiPW  (  9 , 9  )  =  ,  E  1 4 . 3 ) 

3711  FORMAT!  IF3,56X, 1 /FT  A  B  L  E  C  -  1) _ _ 

3712  FCRKAT!  1 H  3 , 5  6  X  ,  1 7  H  T  A  B  L  E  C  -  2) 

3713  FCRKAT!  1HS, 13, IX, 17F7.3) 

C _ P  E  AC  IN  RANGES  CF  I  AND  J  FCR  FCRWARC  SWEEP _ 

RE AC  15,28  )  ( K J  B ( M ) , KJ E 1 K )  , K  I  B ( M  )  , K I E ( M ) , M  =  1 , 9 ) 
WRITE(6»28)  (KJB(M)  ,  K  J  E  (  M  )  ,  K  I  E  ( M  )  ,  K I E  (  M  )  ,M=1,9) 

C  REAL  IN  RANGES  CF  I  AND  J  FOR  REVERSE  SWEEP 

R EAC ( 5  * 28 )  ! l  J  E ( K ) , L J  £ ( M) , l I B ( M 5 , L  I E ( M ) , M  =  1,9) 
WRITE(6,28)(LJe(M),LJE(M),LIB(M),LlE(M),M=l,9) 

C  R  E AC  IN  VC  LC  ME  FACTORS  AND  WEIGHTING  FACTORS  ON  FLUX  T 

1  E  R  K  S 

C  K  =  5  REPRESENTS  INTERIOR  PCINTS  AND  THE  REST  BOUNDARY  P 

1C  INTS 

P  E  A  C  (  3  ,  1 4  )  (  W  F  (  K  )  ,  M  =  1  *  9  ) 

REAL ( 5,14)  (XF(K ) ,K=l,9) 

_ PEAC(5,14)(BX1(K),K=I,9) 

RE  AC ( 5,14 ) ( B  X2 ( K ) ,K  =  1 ,9  ) 

R  E A  C ( 5  ,  14  )  ( YF ( K ) , K=1  ,9) 

R  E A  C ( 5  ,  14  )  ( B  Y  1  (K  )  ,K=1  ,9) 

R  E  A  C ( 5  ,  1 4  )  (BY2(K  > ,M  =  1 ,9) 

CC  1 C  C 3  K  =  1 , 9 
X 1 ( K )  =  X  F ( K )*BX 1(M) 

X  2  (  M  )  =  X  F  {  K  )  *  B  X  2  (  M  ) 

Y1(K)=YF(M)*BY1(M) 

1C03  Y2(M )=YF(K)*BY2(M)  __ _ 

WRITE  (6,  14)  (  XI  (M)  ,K!=1  ,9) 

WR  ITE ( 6  ,  14 )  (X2(K),M=1,9) 

WRITE (6, 14)  ( Y  1  ( K  )  , M=lf9) _  _ 
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(  Hy  =  MI(y 
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_ V\  R  I  T  E  (  fc  ,  1  4  ) _ (  Y2  (  y  )  ,M*1 ,9 ) _ _ 

REAC(5,5)  IT,JT, IPO,ISW,RSfe,DX 

R  E AC ( 5  »  7  )  CVv,VISW,  V  I  SC , V W I PO , VC  I PG , P Z ERG , PS , BZ ERG , BS , D 
_ _  l  E  L  X  ,  C  E  L  V  t _ _ 

C  DELZ, ITERX, ITERY,  ITERZ 

R  E  A  C  (  5 , 3  2  )  CA1 ,CA2  ,CA3,CB  1 , C B 2 , CB 3 , C C 1 , CC2 , CD 1 , CD2 , CD3 

_ Li _ 

C  PSR  IN , SMAXKG 
R  SW2  =  RSV**2  .C 

S y AXK2=SMAXKQ*2.Q _ 

I TNi=  I  T-  I 
I T P-  IT  +  1 

_ jTy  =  jT-i _ 

JTP=JT+1 

P C ( T  )  =C A 3  + ( C A  1  / ( T  — PS y IN)  +CA2 ) / ( T-PSK IN ) 

_ .  I  P  W  =  I  PC-PC  (  I  s W )  _ . . . . . . . 

C  C  =  C  x  *  0  X 

CC=( BS-BZERO  )*2.0/(  (BS  +  BZERC  )*( PZERO-PS) ) 

_ L  C  =  1 . C+CC*  IPO _ 

VC  =  1  .C+CW*  IPG 

V  L=-Ck 

. L  1  =-  C  C  . _  .  .  . _  _ . _____ 

W1  =  1.0-CV«*IPO 
W  2  =  C  k 

_ C  1  =  1 .C-CC*  IPG _ 

C  2  =  C  C 

V  C  L  h  (  T  )=W1  +  V\2,^T 
VC  LC  (  T  )  =  G  1  +  C 2 *  T 

C  A  1 2  =  C  A  1  *  2  .  C 
CB12=CB1*2.C 

_ CC32=CC3*2.C _ 

L12=ll/2.C 

V  12  =  V  1/2. C 
READ (5,  30)  NT 

C  CYCLE  FOR  EACH  CATA  SET  BEGINS 

CC  37CC  NSET=1,NT 

READ (5,4 3)  kQR,E6L,DT,PRINT,FDAY,FACTK _ 

CT2=CT*2.C 
RAT  IC=CC/CT 

R>  =  RAT  10  *  V  I  S  W  . _ . . . . 

RG=R AT IG*V  ISO 
CC  IL  =  eBL*BZ6R0 

_ G  k  A  T  E  R  =  CC  IL*WCR/4.0 _ 

R  E  A  C  (  5 , 3  0  )  yw,yc 
y^y=y  v*- 1 
Ncy=yc-i 

a  o  =  l .c/sy AXK2**yc 

A  1=-FL0AT ( PC  )  / ( ( 2.0**N0M) *SyAXKC**yC  ) 

_ EQ=1 .0/ ( 2.C-RSU2  )**yyg _ 

E  1  =  FLCAT(yw)/((2.0**ywyi)*(1.0-RSW)**MW) 

C  R  E AC  IN  K  (DARCY),  H  (FT)  ,  PHI  (FRACTION) 

_ _ RE  AC  (5,1)  (  (HX(  I ,  J)  ,  1=  2,10)  ,  J=  2,  JT  > _ _ _ 

READ (5,2)  (  (HX(  I, J), 1  =  11,  IT)  ,J  =  2,JT) 

R  E  A  C ( 5  ,  1 4  )  (  ( QC (  I  ,  J  ) ,  I  =  2,1C),J=  2,JT) 

R  E  AC ( 5  ,  15)  (  (  G  C  (  I  ,  J  )  ,  I  =  1 1  ,  1  T  )  ,  J=2,  JD 
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I  ~  T  L  =  f  L 
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_ PEAC(5,1)  (  (UW(  I  ,  J)  ,1=  2,  1C)  ,  J  =  2, JT  ) _ _ _ 

R  E  A  C  (  5 , 2  )  ( (QW (  I  ,  J  )  , 1  =  11,  IT)  ,  J  =  2, JT ) 

C  STCR=PHI*F*DX*CX  TO  BE  LSEC  IN  MATERIAL  BALANCE 

C  _  COMPETE  K*F  (  PARC  Y-FT  )  ,  PH  I  *H  (FT) 

CO  6  2  J  =  2  »  J  T 
CO  62  1  =  2  ,  IT 

_ FX(I,J)=HX(I,J)*QC(I,J)*FACTK _ 

F  W  (  I  ,  J  )  =  QW (  I  ,  J  )*QC(  I »  J  ) 

62  STGR  (  I  ,  J  >  =  F  t*.  (  I  ,  J  )  *CD 

C  INITIAL  OIL  AND  WATER  IN  ThE  RtSb^vClR  (IN  STJD  OBLS  AT 

I  I  PC  P  S  I  A  ) 

SLN  =  C  .  C 

_ CC  82  J  =  3  «  JTM _ 

CC  82  1  =  3, ITM 
82  SLN=SUM+STCR ( I , J ) 

_ CC  85  J  =  3  *  J  TM 

8  5  SUM* SUM 4 ( S  TOR ( 2 , J ) 4STCR ( I T  ,  J  )  )  /  2 . 0 
CC  87  1  =  3,  ITM 

87  SLN=SUN+ ( S TCR (  I,2)+STCR( I , JT  )  )/2.C _ 

SLM=SUM+ ( STCRt  2 ,2  J+STCR (2, JT  )  +STORI I T,2 )+STCR(  I  T,  JT  )  )/ 
14 .0 

V  P  T  =  S  L  M / 5 .6146  . .  _ . . . . 

VC  =V  P  T*  (  l . C- I SW  ) 

V  W  =  VP  T  *  I  SW^VOLW  (  I  PWi ) 

_ WRITE (6, 36  ) _ 

VsRITE(6,59) 

1ft  R I T  E ( 6 , 5  8  )  VP  T , VC , VW 
^  R  I  T  E  (  6  ,  3  7  ) 

WRITE (6, 371  1  ) 

WR  ITE ( 6  ,  1  1  ) 

_ WR  ITE ( 6, 3  3  ) _ 

W  R  I  T  E  (  6 , 4  C  ) 

WR  I  TE  (  6 ,4  1  ) 

_ _  __CC  63  1  =  2  ,  IT 

l  N  =  I  —  1 

63  WRITE  (6,3713)  I  M  ,  (  F W (  I  , J )  , J  =  2  ,  J T ) 

_ WR  ITE (6,37  ) _ 

WRITE (6,37  12  ) 

WRITE (6, 13) 

WRITE (6,33) 

W  R  I  T  E  (  6 , 4  C  ) 

WR  ITE ( 6 ,4  1  ) 

_ CC  64  1  =  2  ,  I  T _ _ 

I  M=  I  -  1 

64  WH  ITE (6*3713)  IN,  (hX(I,J),J  =  2,JT) 

C  X-  ANC  V-C IRECT  IQNAL  AVERAGES  OF  K*H  WITH  CONVERSION  C 

1CNSTANT  6.32 
CC  65  1=2  ,  IT 

65  F  V (  I  ,  J  T  )  =  F  X (  I  , JT  )*6.32 _ 

CC  67  1=2, IT 

CC  67  J  =  3  ,  J  T 

67  FY  (  I  ,  J- l  )  =  (FX (  I  ,  J-l  )  +  F  X ( I  , J )  )  *3. 16 

. CC  6 S  J  =  2  ,  JT 

CC  65  1  =  3,  IT 

6  S  F  X  (  I-1,J)  =  (FX(  I  -  1  ,  J  )  4  H  X  (  I  ,J)  )  *  3  .  1 6  
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T  !  ♦  S  =  I  £3  J3 
I  >  H  (  .  )  .  :  (  L ,  I  )  X  l=  I  i  ,  ]  )  X  i 

(It!)  i  M  t  I  )  W  =  l  L  t  I  )  W  3 

i'll,,!)..  =  (  1. 1  I  )  «3T  J  S3 
I  )  51 1  v  .  -  I  1  I  !  I,  (  T 1  A I 

{  U‘s|  Dil  l 

j . J=M j? 

*  T  f  t  6.  =■  t  >3  13 

T I  *  €  *  I  S  8  J3 

( U  «  1  )  T  ♦  •  J2= * j  : 
r  i  .  =  ;  j  i ", 

J .  s  \  (  (  L  ,  T  I  )  I  ML.'J  T  ’  )  ♦  =  J  2  e !. 

u,e  =  i  \  8  :i3 

.  \  (  (  !  .  .  )  I’m  ,  ■  .  '  =  ■  .■  V  ■. 
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0 .  1 
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(  3  f  t  3  )  J  TI  «  .■ 

(  P  f  )  j  T  1  8W 
•  JV  ,  V  ,  !  i  l  ?  ,  i  )  D  T  I  HW 
(  V  t  . »  )  3  T  I  «  ,  J 
(in  ,  >  r  i  s , 
(fit  3  )  i  TI  8  * 
r'  ,  m  ■  r  I  h  , 

(  .' At  J  )  !  1  W 

(1  t  '  )  T  I 
T I  ,  S  =  I  £  3  J.l 
i  -  !  -  -I 

(Tit  =  i  (lil  )«  Ill’ll  (  f  J  V  f  ,  3  )  j  T  I  Si  ^  ‘3 

( \  »  ‘ )  r  i  w 

(  S  I  V  1  ,  )  ;  T  I  ■  ■  -J 

(fit  )  r  i  k  w 
( i  t  i  .TI'-  t 
(  D  A ,  O  3  T  1  S  * 

(  1  A  t  )  i  I  1  K  W 
f  I  ,  S  =  I  A3  3  J 
I  -  I  -  ,1 

(  L  ,  M.  ,  (  .  t  )  x  )  t  !  (  1  ,  j  :  I  mw  A3 

I  ill.)  ••  I  ID  -I  - y  i /. .\  -X 

s  t  .  T  I  d  A  3  f 

Tit1*!  3  .M 
.  ( r ,  ,  i  )  i-  (  i ,  i  j  y  h  : 

t  1  ,  s  =  I  \  3  n 
n  ,  t  =  i  s  j  3 

.  I  ( t  .  1  )  )  *  (  I  -  ,  I  )  l )  =  (  {  - 1  ,  1  )  y  i  \  j 
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_ CC  71  J  =  2  ,  J  T _ 

71  FX(  IT  »  J  )  =F X (  I  T  ,  J  )*6.3 2 
C  (PH*M*RW  ANC  (PHI*H)*RC  VALUES 

_ C  W  2  =  C  W / 2  . 

CC2=CC/2 . 

CC  73  1=2  ,  IT 

_ CC  73  J  =  2  t  J  T _ 

F C  (  I  »  J  )  =  FW (  I  ,  J  )*RC 
FW(I,J)=FW(I,J)*RW 
F  W  C (  I  ,  J  )  =  F  W  (  I  ,  J  )  *  C  W  2 
73  F  C  C  (  I  * J )»FG ( I ♦ J ) * C  0 2 
WRITE(6,4) 

_ VsRITb  <fc«6)  I  T, JT  ,  IPC,  IPW,  I  SW  ,RSW  ,BBL  ,QC  IL  ,UWATER, WOR,D 

IX  ,  CT  ,  FDAY 
W  R  I T  E  (  6  »  8  ) 

W  R  I  T  E  (  6  »  2  5  )  VISW,VlSQtCWtXO«UO,Ul,VO,.Vl 
Vs  R  I  T  E  (  6  ,  1  7  ) 

WRITE(6»9)  A0,A1,A2,A3,B0,B1,B2,CA1,CA2,CA3 
_ W  R  I  T  E  (  6  ,  1  C  ) _ _ 

WRITE (6,9  )  CELX,DELY, CELZ  ,  ITERX , I TERY, ITERZ 
WRITE(6,9)  CC 1 , C  C2  »  CD  1 , CD 2 , C C 3 , P SM 1 N , SM AX KO , DW I PG , DO  I  P 

1C, 

C  PZER0,PS,BZERG»8S»WlfW2»01,C2 
C  INITIALIZE  PRESSURES  ANC  SATURATICN 

_ CC  8 C  1=2 , I T _ 

CC  8 C  J  =  2  ,  J T 
SW( I,J)=ISW 
_ P  Vs  (  I  ,  J  )  =  I  P  W 

PC (  I  ,  J ) = I  PC 
CW(I,J)=C.C 

8C  CC (  I  , J)=C.C _ 

C  PRCCLCTICN  WELLS  ,  CONSTANT-  C. FT. /STD.  BBL 

CC (  1C ,  10  )  =GC  IL*V  I  SC *5 .6146 

C  INJECTION  WELLS  _  ___  _  ....  _ _ _ _ _ _ 

CW (  5,  5  )  =CWATER*V  I  SW*5.6 146 
CW(  5,15)=CWATER*VISWi*5„6146 

_ _ _ C  W  (  15,  5  )=CWATER»V  ISW*5.6146 _ 

CW(15,15)=CWATER*VISW*5.6146 
F  IN J  =  C  .C 
F  RCCU  C  =  C  .  C 
IN JEC  T  =  C  .  C 
PRCDLC=C*C 

_ E  K  =C  .  C _ _ _ 

N  W  =  C 
N  W  B=  1 

_ T  I NE-C  «  0 _ _ _ 

1CCC  CONTINUE 
C  U  T  =  C  .  C 

1234  TINE=TIPE+CT2 _ 

CUT  =  CUT  +CT2 
N W=NW  +  1 

C  FORWARD  S WEE P  . . . . . . . . . . 

CC  7CCC  N=  1 ,9 
V  F  =  W  F  (  N  ) 

J  B  =  K  J  £  ( N  )  
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_ J  E  =  K  J  E ( W  ) _ 

Ifi=K  I  B  (  N  ) 

IE*K  IE  (M 
CC  7CCC  J  =  JB , JE 

CC  7  C  CC  I  =  IB, IE 
X  =  P  W (  1 , J )-CELX 

_  V  =  PC  (  I  ,  J  )  —  C  E  L  V _ _  _  _  __ 

Z  =  SW (  I  ,  J  )  +CELZ 
I  J=C 

2CC  I  J=  I  J+  1 

IFIIJ.GE.  3CC )  GO  TO  701 
CALL  PREPF 

_ CALL  PULTY _ 

CALL  MATRIF 
CALL  GAUSS 

_  I F I AESIXD  ).LE.  ITERX  , AND*  A8 S ( VC ) . LL . I  TER Y  . AND*  ABS <  ZD 

1 ) • L  E . I  TER  Z  )  G 
1C  TC  4CC 

_ X  =  X4XC _ 

Y=Y4 YC 
Z=Z+ZC 
CC  TC  2CC 
4CC  FWd  ,  J )=X  +  XC 
P  0  (  I  ,  J  )  =  Y  4  V  C 

_  SW<  I  ,  J)=Z4ZC _ 

7CCC  ITERI  I,J)  =  IJ 

BK  =  BK-C^  <  ICt 10  >*CT 

F  I N  J  =  F  1 1\  J  +  (QW(5,5  )+QW( 5,15) +QW<  15,5) +QVm5>  15)  )*0T 

FR0DLC=FRCCUC+GC(10,1G)*DT 
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JE  =  L  JE  (  y- ) 

I  B  =  L  I B  (  M  ) 

I E  =  L IE  (  M 

_ CC  8CCC  JF=JB,JE  _  _  _ _ 

J= JB4 JE- JF 

CC  8CCG  IC=  IB,  IE 

1=  It  4  I  (r  —  I  G _ ________ 

X  =  P  W (  I  ,J  J-CELX 

Y  =  PC (  I , J ) -CE  LY 

_ Z  =  SW  (  I  jlJ  )  4CELZ _  _ 

I  J  =C 

ECO  I  J  —  I  J  +  1 

I  F  (  I  j  .CE.  3C0 )  CC  TC  7C1 
CALL  PREPR 
CALL  MULTY 

_ CALL  MATRIR  _  _ _ 

CALL  GAUSS 
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_ Z=Z+ZC _ _ _ _ 

GC  Tf  fcCO 
6 5 C  PW  (  1  ,  J  )  =X4XC 
PCJ  I  » J)=V4YC 

s  w  ( i ,  j  )  =  i  + 1  c 

ECCC  IT£R(I»J)=IJ 

_ F  1 1\  J  -=  F  I N  J _ +  (CW ( 5 ,5  )  +  Q  W  C  5  »  Lb)  +  QW  (15,5  )  +  QW(  15,1b)  )  *DT 

FRCCIC=FRCCLC+CC ( 10,IC)*DT 
eK  =  BK-CW (  1C  ,  10  )  *  D T 
__ _ l\P  5  {  N  U  )  =  PC  (5,5) 

!AplC(fYW)=FC(lC»10) 

WP15(NW)=PC( 15, 15) 

_ IF(PW(1C,1C)  .11.  1C0.C)  GC  TO  7C3 _ 

1 F  ( GL  T  .LT.  PRIM)  GO  TC  1234 
V\  R  I  T  E  (  6  »  1  fi  ) 

WR  I  TE  (  6 , 34  ) 

7  4S  w  R  I T  E  (  6  »  2  7  )  TINE 
'aRIT£(6»35) 

_ WR  I  TE  (6,20 _ _ 

WRITE  (6,40 
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. . CG  750  1  =  2,  IT 

I  N  =  I  -  1 

75C  WRITE(6,1S)  IV,(PW(I,J)  ,J  =  2,JT) 
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I  N  =  I  ~  1 
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WR  ITE (6,35  ) 
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_ CC  66  7  J  =  3 ,  J  TV _  __  _ _  _ _ 
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_ CC  668  1  =  3  t  I  TM _ 

F  V  V.  =  F  V  Vn  +  (STOR(  I,2>*SW(If2)*VCLW(  PW(I,2))  +  S  TOR 

l(It 

C  J  T  )  *  S  Vs  (  I  ,  JT  )*VCLVs(  PU(  I,JT>  )  )/2.0 

668  F  V  C  =  F  V  C  +  (STORT  I  ,  J  T  )  *  {  1 . 0-SVs  (  I  ,  J  f  ) f*VOLC<  P  0  C  I  ,  J 

IT  )  ) 

C  4  s  T_CR_(  I  ,  2  )  *  (  l  K>SMJ  lA 1  )  *VCLO  (  PL  (  I  fJJ  )_)  _ 

F  V  Vs  =  F  VVv  4  ( STCR( 2,2) *SW (2,2)*VCLW(  PW( 2,2 ) )  +STGR 

1(2, 

C  JT)»SW(2f JT)*VCLW<  P  W  (  2  ,  J  T  )  )  +STOR(  IT,2)  *SWUT,2  )*VOL 

IV  ( 

C  P  Vs  (  I  T  ,  2  )  )  +  STCR (  IT,JT )*SW ( IT, JT)*VCLW(  Pto  (  IT,JT)  )  )  /4  . 

1C _ _ 

F  V  C  =  F  VC  4(ST0R(2»2)5M1.0-SW(2»2)  )*VOLGl  PC  (  2 ,2)) 

1  + 

C  STCR(IT,2)*(l.C-SW(IT,2))*VCLO(  PC (  I  T  ,  2  )  )  4  STCR(2,JT 

1  )* 

E  (  l.-SVsi(2»JT)  ) *  V  C  LC (  PO ( 2 , J  T  )  )  4STCR ( IT  »JT) * ( i.-SW( IT , 
1  JT  )  )  _ 

F  *V CLC (  PC (  IT, JT ) ) )/4.0 
FVVv=FVVs/5«6l46 
F VC  =  F VC/5 .6 146 
V ATER=F VW-VW 
C  IL=VC-FVC 

_ INJECT  =  FINJ/(VISVm*5«6146) _ 

FRCCUC=FRCCUC/(VISC*5.6146) 

E  K  Vs  =  E  K  /  (  V  I  S ^ ^ 5  -  6  146  ) 

tRRVs  =  1CC.C*(  IN JECT— BKW— WATER  )  /  IN JECT 
E  R  RC  =  ICC  .CM  PRCDLC-0  IL  )  /PRC  LUC 
VsR  I  TE  (  6  ,  57  ) 

VsRITE(6,56)  IN JECT,BKW, WATER, PRCDUC,CIL 

V  R  I T  E  (  6 , 4  5  ) 

VsRITE  (6,58)  ER  R  V\  ,  ER  RC 
N  Vs  T  =  Ms 

C  TIRE  VS  PRESSURE  AT  T V\ 0  INJECTING  VsELLS  AND  PRODUCING 

1WELL 

_ VsR  ITE  (6, 4  4  )  (NC  ,  VsP5(  NC  )  ,  wPIC  (NO  )  ,  VsP15  (NO  )  ,  NG  =  NVsB,NW  T  ) 

N  Vs  8  =  M.  T  +1 

I F ( T  I  ME  .LT.  FCAY)  GO  TC  1CCC 
CC  TC  7 C 2 

701  CONTINUE 
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CC  680  1=2, IT 
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68C  VsRITE  (6,  IS)  I M  ,  (  PVs  (  I ,  J  )  ,  J  =  2  ,  J  T  ) 

CC  682  1  =  2  ,  IT 
I  M  =  I —  1 

682  VsRITE(6,l<K  I M  ,  (  PC  (  I ,  J  )  ,  J  =  2  ,  J  T  ) 

C C  6  8  4  I  =  2  ,  IT 
I P  =  I-  1 

6JE4  VsRITE  (  6,23  )  IP  ,  (  SW  (  I ,  J  )  ,  J  =  2  ,  JT  ) 

702  CONTINUE 
CC  TC  37CC 

7C3  Vs  R  I  T  E  (  6 , 6  C  )  PW(  10, 1C) 
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. .  kR  ITE  (  6  ,  1  8  )  _ _ 

VsR  1TE ( L , 34  ) 

V\  R  I  T  E  (  6 , 2  7  )  TINE 

VnRITE(6^35)  _  _ ____  ___ 

W  R  I T  E  (  6 , 2  C  J 
Vi  R  I T  E  (  6  ,  4  C  ) 

_ Vs  R  I  T  E  (  6 ,4  1  ) _ _ 

CC  8  5  C  1  =  2,  IT 

I  N  =  I  -  1 

EEC  WR  ITE (6, 19)  IM,  (Ph< I, J)  , J  =  2  ,  J  T  ) 
VsR  ITE  (6,21  ) 

Vs  R  I  T  E  (  6  ,  4  2  ) 

CC  852  1  =  2  ,  IT _ 

I  N  =  I  -  1 

852  VsRITE(6,lS)  IK,  (  PC  (  I ,  J  )  ,J=2,JT) 
_  ViRITE(6t22)  _ _ 

Is  R  I T  E  (  6  ,  A  2  ) 

CC  8  5  4  1  =  2,  IT 

_ I  K  =  I  —  1 _ 

854  VsRlTE(6,22)  I K  ,  (  S  Vn  (  I  ,  J  )  ,J  =  2,JT) 
VsRITE(6,36) 

VsR  ITE  16 ,2 4  ) . . .  . 

V»R  ITE  { 6 , 38  ) 

Vs  R  I  T  E  (  6 , 3  5  ) 

CC  856  1  =  2  , IT 

I  K  =  I  -  1 

856  V*RITE(6,16)  IM  ,  (  I  TER  (  I  ,  J  )  ,  J  =  2  ,  J  T  ) 
37CC  CENT  INCE 
STCP 
ENC 
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SUBRCUTINE  PREPF 


C 

C 

C _ CALCULATES  CERTAIN  INTERMEDIATE  FUNCTIONS  PREPARATORY 

C  TC  ThE  CCRPUTATICN  OF  THE  COEFFICIENT  MATRIX  IN  ThE 

C  SET  CF  NONLINEAR  ALGE8RA IC  EQUATIONS - FORWARD  SWEEP 

C _ 

C 

C  Gf*  P  C  N  PW(19,19),PC(19,i9),SW(19,19),QW(19,19),GO(19,l 

. . 19  I  t . . __ . . . ... _ _ 

A  FW< 19,19) ,FWC (19,19 ) ,FO( 19,19) ,FOC( 19,19) ,HX< 19,19) , 

B  FY{19,19),A(4,4),AZ{4),X1{9),X2(9),Y119),Y2(9),WF(9) 

_ CCPPCN  HKW  IP,HKWJP  ,HKWIP,HKWJP, _ 

A  HKOIM,FKGJN,HKCIP,HKCJP,SIM,$IP,SJM,SJP,X,Y,Z,IJ,I,J, 
IRSW, 

_ e  RSW2,X0,VC,ZD«V ISW,V ISO.QOIL ,QWATER .V0,V12,U0,U12, IT, 

1ITM 

C,JT,JTP,JTP,ITP,M,VF,PCGRAD,e0,Bl,B2,B3,BI2,B2A,A0,Al, 

_ C  A2,  A3  ,A4,  AC  2, A2 2, A34,AG4,CC, 0,02,03,04, 0U2,B ZERO, CA1 

I,CA2 

E  ,CA3 ,CB  1,CB2,CE3,CC1 ,CC2,CD1 ,CD2 ,CC3 , PSM IN, SMAXKO, C03 

. 12., . . . . . . 

F  CA12 ,CB12,SMAXK2,M0,M0M, MU,MWM 
REAL  K  W  »  K  C  ,  T 

_ K Vs  (  T.l_=£.C.r.LT-RSk2JA*rw _ _ 

KC  (T  )  =  A  C* ( SPAXK2-T )  ** PC 
999  S  IN=SW ( 1-1 , J ) +Z 
S  J  P  =  S W (  1 ,  J  —  1  )  +  Z 
SIP  =  SW(  I+1,J)+SW(  I, J) 

S JP=SW { I, J+l )+SW ( I , J ) 

3C1  IFIZ.CT.RSW.ANC.I.EC.IO.ANC.J.EC.IC)  GO  TO  888 _ 

RETURN 

C  AFTER  WATER  BREAK  -  THROUGH 

gfg  FKW=KW(Z+SW( 10,10 ) ) _ . 

I F (  (Z+SH <10,10 )  .GT.  SPAXK2)  GC  TC  810 
FKC  =  KC  (  Z  +  SW  (10,10) 

£89  CW  i_l  C  ,  1C  )  =Q  C  I L  /  (  L  .+  (  FK0/FKW)*(VISW/VlSQ)*((yQ+V12*(X+P 

1W  ( 

C  1C  ,  1C )  )  )  /(U0+U12*( Y  +  PG( 10, IC)  )  ))  ) 

CO 1 1C  1 10)  =5.6146*VIS0»(Q0IL-QW(10,1C) ) 

C W 1 1C , 10  )  =-QW ( 1C , 10 )* V I SW*5. 6146 
RETURN 

81C  F  K  C  =  C  «  C _ _ 

GC  TC  889 
2  RETURN 

END  __  . . . . . . . . . . . 
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SLERCtT  I N  E  P  R  E  F  R 


C 

C 

C  CALCULATES  CERTAIN  INTERMEDIATE  FUNCTIONS  PREPARATORY 

C  TC  THE  COMPUTATION  CF  THE  COEFFICIENT  MATRIX  IN  THE 

C  SET  CF  NONLINEAR  ALGEBRAIC  EQUATIONS - REVERSE  SWEEP 

C _ 

c 

COMMON  PW(19,19),P0(19,19),SW{19,19),GWU9,19)fQ0d9,l 
_ _ _ 19  ). _ 

A  Fto(19»19)fFWC 119*19) *FOl 19* 19 ) *FOC ( 19* 19 ) *HX( 19* 19 ) , 
e  FYd9»19)*A(4*4)*AZ(4),Xl(9)»X2(9),Yl(9)*Y2(9)*WF(9) 

_ COMMON  FKWIM,HKWJM ,  HKWIP,HKWJP, _ 

A  FKCIM,hKOJMfHKGIP*HKOJPfSIM,SIPfSJM*SJP*X»Y,Z*IJ*I*J* 
1RSW* 

B  RSW2*XD*YC»ZD*VISW*VIS0*Q0IL*QWAT£R*V0»V12*U0*U12*IT* 
1  I  TM 

C,JT,JTM,JTP,ITP,M,VF, PCGR A C , B 0 * B 1 » B2 , B3 , B 1 2  * B24 , AO *  A 1 , 
_ 0  A2,A3,A4,AC2, A22 * A34 » AC4 , CO » 01 , D2 , D 2 , 04  * D02 * BZ ERO , C A1 

1  *  C  A2 

E  ,  CAB  ,cei  ,CB2,CB3,CC1 ,CC2 , CD  1 ,CD2 , CC 3 , PSM IN , SMAXKO,  CD3 

__ _ u*. . . . . . _ . _ . . . _ . . . . . . . . . . . . . 

F  CA12,Cfcl2,SMAXK2,MC,M0M,MW,MWM 
REAL  K  W  »  K  C  *  T 

_ KW  (  T  ) -BC* (  T-  R  S  W  2  )*»MW _ _ _ _ 

K  C  (  T  )  =  A  0  *  (  SMAXK2  —  T)**M0 
999  SIM=SW( I-1*J)+SW( I»J) 

S JM  =  Sh (  I  ,  J-l  )  +  SW (  I , J ) 

S  IP-SWI I  +  1*J)+Z 
SJP  =  SW (  I  ,  J+  L  )  +  Z 

_ 645  IF (Z.CT.RSW.ANC. I.EG .  10 .  AND  .  J  .  EC  .  10  )  GO  TO  888 _ 

RETURN 

C  AFTER  WATER-BREAK- THROUGH 

6  8  8  FKW=KW(Z+SW(  10,10)) 

I F (  (Z  +  SWC1C, 1C) )  .GT.  SMAXK2)  GO  IC  810 
FKC=KC( Z+SW (  LO,  10  )  ) 

_ 689  QW  (  1C  ,  1C  )  =QC  I  L / (  1 .  +  ( F KC /F K W ) * ( V  I S W / V  I  SO ) * (  (  VO  +  V  1 2*  (  X  +  P 

1W  ( 

C  1C, 1C)  )  )/(U0+U12*(Y+PG(l0,10)  )  ))  ) 

C0(1C,  1C  )  =5«6146*VIS0*(QQI L-QW ( 1C >  1C )  ?  __ 

GW (  1C  ,  10  )  =-Cw (  1C  ,  1C  )*V  I  S W ♦ 5 • 6 1 4 6 
RETURN 

81C  F  K  C  =  C  »  C_ _ _ _ _ _ 

GC  TC  889 
2  RETURN 
ENC 
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SUBROUTINE  NATRIF 


C 

C 

C  CALCULATES  THE  MATRIX  CF  COEFFICIENTS  IN  THE  SET  OF 

C  NONLINEAR  ALGEBRA  I C  EG  U  AT  ION  S F  CRN  A  R  D  "SWEEP 

C 

C _ _ _  _ _ 

CCNNLN  PW ( 19 , IS ) , PO( 19, 19 ) ,SN ( IS,  IS  ) , QW ( 1 9 , 1 9 ) , GO ( 19,1 
19  )  , 

A  FW  (  1  9  |  1  9  )  jJFWC  (  19  ,  L9  )  ,  f  C  (  1  9  ,  19  )  ,F0C  (  19,  19  )  ,HX  (  19  ,  19  )  , 

E  F  V l  1 9 ,  1  9  )  , A ( A  ,4  )  ,  A  Z  (  4 ) , X  L  (  9  )  ,  X  2  ( 9  )  , V 1 ( 9 )  , Y2 ( 9  )  , WF ( 9  ) 
CCNNCN  FKN  IN  ,HKN  JN,HKV*  I  P,  HKW  JP, 

—  A.  fkcik,fkcjn,hkcip,hkcjp,sim,sip,sjn,sjp,x, y ,Z,  I  J,  I  ,  J, 
1RSW, 

P  RSW2 ,XC,YF,ZD,VISW,VISC,QCIL,QWATER,V0,V12,U0,U12,  IT, 
1  I  TN 

C,JT, JTN, JTP,  ITP , N , V F, PC G  R  A  C ,8 0 ,8 1 , 8  2 ,83,81 2,824 , AO, A  1  , 
C  A2,A3,A4 ,AC2, A 2 2 , A34 , A04 , DC , D 1 , D2 , D3 , D4 , DC2 , BZERO, C A 1 
_ 1  ,CA2 _ _ _ 

E  ,CA3 ,CB1 ,CB2,C83,CC1 , CC2 , CD  1 , C 02 , CD  3 , P SM I N , SM AXKO , CD3 

12  , 

F  CA12 ,Cei2,SMAXK2,MO,NONI,MN,MWM 

REAL  PC , C  PC S  WN , C KRC , D  K  R  W , T 
CKRW ( T )=B 1* ( T-RSN2 )**NWM 

_ CKRC  (  T  )  =  A  1*  (  SMAXK2-  T  ) »»NQN _ 

Z  P  =  Z- P  SN  IN 

I F ( Z  .LE.  C  .  20  )  GC  TO  2 
I F ( Z  .LE.  C • 50  )  GC  TO  3 
I F ( Z  .LT.  C.712)  GC  TO  4 
P  C  Z=  CC1+  <CD2+CC3*Z)*Z 

_ CPCZ  =  CC2+CC3 2*Z _ 

C-C  TC  6 

2  PCZ=  C  A  3  +  (CA1/ZP  +CA21/ZP 
CPCZ=  (-CA12/ZP  -CA2 ) /  (ZP*ZP) 

CC  TC  6 

3  PCZ  =  Ce3  -MC61/Z  +CB21/Z 
CPCZ  =  (-CE12/Z  -Ce2  )/  ( Z*Z  ) 

GC  TC  6 

4  PCZ=  CC 1  +  CC2*Z 
CPCZ  =  CC2 

6  IF (SIN  .LE.  RSW2 )  GO  TO  10 
CWS  IN  =CKRW (SIM) 

_ GC  JC_  _15_ _  _ _  _ 

1C  CWSIN=C.O 

15  IFISJM  .LE.  RSN2)  GC  TO  17 
CWSJN  =CKRW ( S JN  ) 

CC  TC  18 

17  CNSJN=C.C 

18  IFtSIM  .GT.  SMAXK2 )  GC  TO  20 
'  CCS IN=CKRC (SIM  ) 

21  IF ( S  J  N  .GT.  SMAXK2)  GC  TO  2  2 
CC  S JN  =CKRC ( SJM  ) 

GC  TC  25 
20  CCSIN  =C.C 
GC  TC  21 
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_ 22  CCSJMC.C  _  __  _  _ _ 

C  MATRIX  CF  COEFFICIENTS  IN  SET  OF  LINEAR  EQUATIONS 

25  A (  1,2  )=C.C 
A ( 2,  1  )=C.C 
A  (  3  »  1  )  =  -  1  .  C 
A ( 3, 2  )  =  l.C 

_  A  (  3,  3  )  =  -  C  F  C  Z _ _ _ 

A ( 3  »  4  )  =PCZ-Y  +  X 
I  F { N  .  EG.  5)  GO  TO  7CO  1 

_____  A(  1,  1) -VF*FWC  (  I  ,  J  )  *  (  Z  +SW(  I  ,  J  )  )  +  XI  (  M  )  *HKWI  M  +  Y  1(H)  *HKWJH 

A  -GMIfJ  )*V1 

A  (  1 ,  3  )  =  VF*(FWC(I?J)*(  X-P  Ir,  (  I,J)  )+FlM  1  » J) )-Xl (M) *HX( 1-1 

_ 1 ,  J  )  _ _ __ _ _ 

C  *DWSIR  *{  P  M  I-1,J  )  —  X  )  —  Y 1  (  M  )  *  H  Y  (  I»J-l)*CWSJM  *( 

1 F  W  ( 

C  I  ,  J  -  1  )  -  X  ) 

A  (  1,4)=  -  (  VF*(  F U C  (  I  ,  J  )*<Z  +  SM  I  ,  J  )  )*  (  X-PW  (  I  ,  J  )  )  +FW(  I  ,  J  ) 
C  *  (  Z-SVi  {  I  »  J  )  )  )  -X1(H)*HKWIM*(PW(I-1»J)-X)-X2(M)*HKWIP* 
_ U _ 

C  P  Vs  (  I  +  1  »  J  )  -  P  W  (  I  »  J  )  )  -  Yl(M)*HKWJH*(PW(If  J-l)-X)-  Y2  (  M  )  * 
1FKW 

C  JP»(PW<  I  t J+1)-PWU»J ?  )  -QWt I,J)*<V0+V12*<X+PWt I,J) ) ) ) 

A { 2, 2  )  =  V  F  *  F  0  C  T  I  »  J  )  *  (  2  .  -  S  W  (  I  ,  J ) - Z  )  +  X 1 ( M ) *HKO I M  +  Y i  ( M ) * H 

1KO  J 

_  C  N  4QQ(  I  , J  )*U1 _ 

A ( 2 , 3  )  =  V  F  * (  FCC (  Iv J) *(PO(  It J)-Y)-FOII, J)  )  -X1(H)*HX(I 
1-1, 

C  J  )*CQSIM  * ( F 0 (  I -1 , J )-Y )  - Y1 (H)*HY( 1 1 J-l )*POSJH 
1* 

C  (  PC  {  I  ,  J-  1  )-Y  ) 

_  A ( 2 , A  )  =  - ( V  F  * (  FOC (  I , J  )*( 2.-SM  I  ,  J)-Z)*( Y-PC( I , J)  )-FC( 

1  I  ,  J  ) 

C  * ( Z-SW {  I  , J )  ) )  -Xim*HKGIN*{PO<I-l»J)-Y)  -X2(M)*HK01P 
Is*  (  PC 

C  (  1  +  1  ,  J  )  -  PC (  I  , J  )  )  -Y1 (M)*HKOJH*(PC ( I ,J-1)-Y)-  Y2(M)*HK 
1C  JP 

_ C _ *  [  PCJ  U  4  1)- PC  (  I  ,  J  )  )  4QQ  {  l  ,  J)»(UQ4U12*(Y4PC(  I,  J  )  )  )  ) 

RETURN 

7C01  A  (  1 ,  1  )  =  F  WC  (  I  ,  J  )  *  (  Z4SVv  (  I  ,  J  )  )  4  HKWIR4  HKWJN  -QW(I,J)*Vl 
A(lt3)*FWCn»J)*(X~PW(lfJ)  )  +  F  W  (  1  ,  J  )  -H  X  (  I  -  1  ,  J  )  *DWS  IH 
C  *  (  PM  I- l  ,  J  ) -x  )-  H  Y  (  I  ,  J  -  1  )  *  D  Vi  S  J  M  *  (  PW  (  I  *  J— 1  )  -  X  ) 

A  (  1 ,  -4  )  =  -(  FWC(I*J)*(Z4SW(I,J))*(X-Pfe(ItJ))4FW(ItJ)*<Z 

_  1-S  Vi _ _  _ _ _  _ 

C  (  I  ,  J  )  )  -FKMM*(PMI-1,J)-X)-  HKWI  P*  (PW(  1  +  1  f  J)-PW(  I  f  J  ) 

1  )  - 

C  FKW  jy*  (  PW  (  I  ,  J-  1  )-X  )-  HKW JP* ( PW ( I , J+ 1  )-PW(  I  * J )  >  -QW  (  I  , 

1 J  >v 

C  ( VC4V  12*  (  X 4 P W (  I  ,  J  )  )  )  ) 

A ( 2, 2  )  =  FCC (  I  ,  J  )* ( 2.-SW( I f  J )-Z) +HKOI  N+HKO  JM  +  41G  (  I , J ) *U1 
A (2  ,3  )  =  FCC (  I  ,  J  )  * ( PO (  1  , J > -Y  )  -FC (  I  ,  J  )  -HX (  I- 1 , J ) *OOS I M 
C  *(PC(  I-1,J)-Y)-FY<  I, J-1)*DCSJM  * ( PO (  I  ,  J- 1 ) - Y  ) 

A ( 2 ,4  )  =  -  (  FCC (  I  , J  )* ( 2 ,-SW (  I  ,  J  )  -Z  )  * ( Y-PC {  I  ,  J  )  )  -FC (  1, J)* 
1  (  Z- 

C  SW(ItJ))  -PK0IP*  (  PC(  1-1 ,  J  )-Y  )  -HKCIPMPOI  I  +  i,J)-PO(  I  , 

1  J  )  )  
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C 

C  CALCLLATES  THE  MATRIX  CF  COEFFICIENTS  IN  THE  SET  OF 

C  ”  NCNL INEAR . ALGEBRAIC  ECU AT  I CNS — --REVERSE  SWEEP 

C 

C _ _ 

CCNNCN  PM19,19),PG(19,19),SW(19,19),QW(i9,19) , CO(  19,1 
IS  )  , 

A  F W (  19, 19  )  ,  F WC (19,19) ,FO(  L 9 , 1 9 )  , FCC (  1 9 , 1 9  )  ,  HX ( 1 9 , 19 ) , 

B  H V  (  19, 19)  ,A (4,4  )  , A  Z ( A) ,X1(9)  ,X2(9)  ,  VI  (9)  ,  Y  2 ( 9 ) , WF (9 ) 
CON  MC  N  FKWIN,HKUJN,HKMP,HKWJP, 

_ A  FKQIN,FKCJN,HKCIP,H<CJP,SIN,SIP,SJN,SJP,X,Y,Z,IJ,I,J, 

1  R  S  V\ » 

B  RSW2  ,XC,VC,ZD,VISW,VISC,QCIL,QVvATER,VO,V12*UO,Ul2,  IT, 
1  1  TN 

C  ,  J  T  ,  JTN  ,  J  TP,  ]' TP  7  M  ,  VF,  PCGRAC  ,  B  0  ,  B  1,  B  2  ,  B  3  ,  B  1 2  ♦  B  2  4  ,  A  0  ,  A  1  , 
C  A2, A3, A4,AG2, A 2 2 , A 34 , A04 , DO , D 1 , D2 , D 3 , D4 , D02 , BZERC , C A 1 
__  1  ,CA2 _ 

E  ,CA3,CBl»CB2fCB3,CCl,CC2,CDl,CC2,CC3fPSMINiSMAXKO,CD3 
12, 

F  C  A  1 2  ,  CB  12  ,  SNA XK  2  ,  MO  ,  NGN  ,  MW,  N 
REAL  PC ,DPCSWM,CKRO,DKRW, T 
C  KR  W  (  T  )  =  B  1*  {  T-R  S  W  2  )  **N  WNi 

CKRC  (  T  )  =A  1*  (  SN1AXK2-T)  «*NOM _  _ _ 

ZP=Z-PSN  TN 

I F  <  Z  .LE.  C .  20  )  GC  TO  2 
I F ( Z  .LE.  C . 50  )  GC  TO  3 
I  P  (  Z  .LT.  C.712)  GO  TC  A 
P  C  Z=  CC1+  (CD2  +  CD3*Z)*Z 

_ CPCZ  =  CC2+CC32»Z _ _ _ _ 

GC  TC  6 

2  PCZ  =  C  A  3  +  (CA1/ZP  +CA2J/ZP 
CPCZ=  (-CA12/ZP  -CA2)/  ( Z  P  ^  Z  P  ) 

. GC  TC  6 

3  PCZ=  CB 3  -MCB1/Z  +CB21/Z 

_ CPCZ  =  ( — C B  12 /Z  -CB2  )/  (  Z*Z  ) _  _ 

GC  TC  6  ' 

A  PCZ=  CC1+CC2*Z 
CPCZ=  CC2 

6  IF (SIN  .LE.  RSW2  )  GO  TO  1C 
C W S I F  =CKRW (SIP  ) 

_ C-C  TC  1 5 _ _  _ 

1C  CWSIP=C.C 

15  I  F  (  S  J  N  .LE.  R  S  V\  2  )  GC  TC  17 
CkSjF  =CKRV>.  (SJF) 

GC  TC  18 

17  CkSjP=C.C 

18  IF ( S  IP  .GT  .  SNAXK2  )  GC  TO  20 
"CCS  I F  =  0  «  R  C (SIP  ) 

21  I F ( S  J  P  .CT.  SNA  X  K  2  )  GC  TO  22 
CCSJP  =  CKKC ( S JP  ) 

GC  TC  25 
20  CCSIP  =C . C 
GC  TC  21 
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_  _2JL  CCSJF=C.C _ _ _ 

C  NATRIX  CF  CCEFF  IC  IENTS  )  NE W TCN-RAPHSGK  ,PULT  I-VAR I  ABLE 

1SYSTEN 

25  A  (  1,2  )=O.C  _ _ _  _____ 

A  (  2  f  1  )  =  0  . 

At  3,  1  )  =  -l.C 

_ A  (  3  ,  2  )  =  1_.C _ 

A  (  3, 3 ) =- C  PC  Z 
A(3, 4)  =PCZ-Y+X 

______  IFtN.hu.  5  )  GO  TO  8C0 1  _ 

A (  1 ,  1  )  -  V  F  *  F  WC ( I ,  J  )  *  ( Z ♦ S W (  I »  J  )  )+Xl(M)*HKWIP+Yl(M)*HKWJ 
1P- 

C  CW(  It  J)»V1  _  _____  _ 

A (  1, 3  )=VF* ( FWC (  I  ,  J  )*t  X-PW (  I  ,  J  )  )+FW  t  I  ,  J )  )-Xl <M)*HX( I , J ) 
l  * 

C  CWSIP  *  (  PK  (  I4l  ,  J  )-X  )  -Y1  (M)*HYt  I  ,  J  )*DtoSJP  *(PW(i, 
1 J  +  1 ) 

C  -X  ) 

_ A(l,4)=  -(VF*(  F WC (  I  > J  )*( (  I  ,  J  )  )  » (X-PW ( I , J )  )  4FWt  I , J 

1  )  * 

C  (  Z-  S  M  I  ,  J  )  )  )  -Xl(M)*HKWIP*tPW<  I  +  1,J  )-X>-  X2 ( M ) *HK W  I  N* 
1  (  PW 

C  (  I-  1  ,  J  ) -PU  (  I  ,  J  )  )  ~YHM)*HKWJP*{PW(  I,J  +  1)-X)-Y2{M)*  HK 
1  JN 

_ C  *(Pk  (  I  ,  J-  1  ) -p  Vv  (  I  ,  J  )  )  -GW  <  IfJ)*{V0  +  V12*(X  +  PW(ItJ)))) 

A ( 2, 2  )  =  VF*FOC (  I  ,  J  )*(2.-SW ( I , J )-Z) +X1 (M)*HKOIP  +  Yl ( M) *HK 
1C  JP 

C  4  gC( I, J)*U1 

A  (2,3)=  VF*(  FCC  (  I,  J  MM  PUt  I  ,  J  )  -  Y  )  -  F  C  {  I  ,  J  )  )  -XiCM)*HX(I 
1  ,  J  ) 

C  *CCSIP  *  (  PC  (  I  4  1 ,  J  )~Y  ) -Y1  (  P)  *HY  (  I  ,  J  )  »DC$JP  *(PQt 

1  I  ,  J4 
E  1  )  -  Y  > 

A  (  2 , 4  )  =  -tVF*(FQC<  I,J)*<2.-SMI,J)-Z)*(Y-POtI,J)  )-FO(  1 
1 ",  J) 

C  * ( Z-SW {  I  ,  J  )  )  )  -Xl(M)*HKOIP*(PO(I+l,J)-Y)  -X2tM)*HKOIM 

1*  _  _ _ _  _  _ _  __  _ 

C  { PC (  1-1  ,  J  )-PO (  I  , J )  )  -Y  1  ( M  )  *HKO JP* l PC (  I  ,  J  4 1  )  -Y  j  -Y2 ( P ) 
l* 

E  FKCJN * ( PC (  I  ,  J  -  1  )-PC(  I  , J )  )  4 get  I  ,  J  )  *  (UC4U12* ( Y  +  PO (  I , J ) 

1  )  )  ) 

RETURN 

6CC1  A  (  1 ,  1  )  =  FWC(  I,J)*(Z  +  SMIt  J))4HKWIP4HKWJP-QW(I,J)*V1 
A  (  1,3  )  =  F'aC  (  I  ,  J  )*  t  X-Ph  (  I  ,  J  )  )  +  F  W  (  I  ,  J  )-HX(  I  ,  J  )*DWSIP 
1* 

C  (  PM  14  1  ,  J  )-X)-FY  (  I  ,  J  )  Ld^sjp  *  (  P  Vn  (  I  ,  J  +  l  )-X  ) 

A (  1,4)=  - ( FWC ( I , J ) * ( Z  +  SW ( I , J ) )  * ( X-PW ( I , J )  ) +  F W (  I  ,  J  )  * ( Z- 
1SW 

C  (I|J))  —  PKV\  IP*  (  Pv%  (  I  4  1 ,  J  )  -  X  )  -HKWIP*tPW(  I  —  1  ,  J)-PW(  I,  J) 
1  )  - 

C  FK’k  JP*  (  Pk  (  I  ,  J4  1  )-X  )  -HKWJP*tPW(  I,  J-D-PWt  I,  J)  )-QW<  I,J 
1  ) 

E  *  (  V  C  +  V 12  *  t  X  4 P  W  (  I  , J  ))  )  ) 

A  (  2, 2  )=FOC  t  l  ,  J  )*  t  2.-SW  t  I ,  J  )-Z)  +  F1KC  IP4HKGJP+GG(  I  ,  J  )  *U1 
A ( 2  ,  3  )  =  FCC  <  I , J )* (POt  I  ,  J) -Y  )  -FC ( I , J ) —  H  X (  I  ,  J ) *DOS 1P*( 


.. .  »  1 1  i ;} 

■  J  .  -  I  :  •  t  ■  (  i  '  .  '  ■  -i  j  •  j  I  \ 


3  . 

•  * 

-  t  1  »  ) 

3. 1  - 

=(!»£) 

\  i 

=(»£)% 

--  • •  •  * 

•  +  - 

=  (  <  ,  i  ) 

I  Q  i 

1  (3 

.-Ml 

;'■.+  ({  ,  i  )  ’  +  ■  )  ; .  , 

1  ) 

-(!»!)& 

[  v  -  (  ,  n  .)  d 

'  1  «  (  '  I  I  -  (  (  « •  »  -  t  t  {  ,  ,  )  -  )  M  ,  )  1  )  X  I  ,  =  (  •  ,  |  ) 

*  ■  :  -  -  )  ) 

{  J  4-L  J 

(  '  -  3 

’  I  *■  !  U.  t  I  )  -  )  l  (  t  I  )  +  ’  )  ■  (  l  ,  I  )  )  ■:  )  -  (  ,  )  ' 

*  t  i 

-  (  -  (  l  •  j  -  )  \  -  ( ( (  l  .  i  ) .  -  'i 

^t)i 

1  <  ) ■  < - (  “11+1,1)  !  ■  (  )  Y -  (  ( L ♦ I  )  .  -(,*!-])  3 

•  •  ■  )  -  .  •  .  ,  -  ■  :  .  -  .  . 

'  <  ■  H  Y  +  M  )  i A  +  (  \ .  )  (  ,  I  )  .  v  (  .  .  \  ) 

31 

I  J  *(  L  ,  I  )  .  +  3 

■  ••  (  m  -  (  ( t ,  n  >  -  { y  -  (  « i  )  j  (1,113*1  )  m  v  =  ( c  t  )  ■ 

(  l  ,  I 

•l<-  ml,u.  (  )  i ( r  -  ( i ,  1 1  !  j  , )  -;i  i  .ix  3 

+  L  ,  I  I 
(  -  (  I  1 

- ; ! 1  • « i  )  -  v )  (  - 1  ,  i  >  - .  .  -  >  -  =  <  ,  s  n 

l  L  ,  1 

'■  1  !  “  (  Y  -  (  u  ,  J  +  1  )  ;  i  ]  H  ■  •  (  .  )  j  -  [  (  (  {  ,  j  )  ,  -  j  .. 

*  J 

)  <  -  l  r-  {  >■  i ,  i  )  )  •  :  (  :  !  ,  -  (  .  ,  •  )  j  i 

*1 

•  '  '  ]  ♦  y  )  -  :  <■'  f  )  '•  (  *  I)  +  (  (  L  ,  I  )  .  -  {  -  L  ,  1  )  )  4 

(  (  ( r 
-  j  i  <  • 

•  {  *  ;  >  *  ♦  1  l  t  !  )  +  J  (  ,  I 

•  l  i  •  i  )  (  L.  ,  I  )  ►  (  U,  .  [  )  ‘  -  )  (  i  t  )  n  =  i  ■  ,  l  ) 

^  l 

"  ‘  '  ■  «  <  -  )  ■  •  (  .  I  )  -  '  -  »  1  f  |  )  ,  '  ;  )  ) 

~  1  l  °  :  •  ■  f  t  >  '  «  i  )  i  ~  )  • 4  v  !  »  I  )  » <  +  )  (  t  j  ,  i  )  -  =  (  ,  i  )  . 

W  21 

1  ’  ( t »  ;  ~  i  )  i )  ^  1  -  (  -  (  ,  ,  i  f  I  i  ,v 1  )  •  {  i  l  ,  I  )  3 

-(  1 

’  •  *  ■  (  l  •  *  =  i . .  -  ;  ~  t «  i  '  i  -  (  •  -  :  ••  .  l  j  i  t  . ,  -\ 

(  I 

(  (  (  (  ,  !  )  v  S  f  ...  )  *  S  i  V  +  J  y/  )  x  - 

•  •  }  T  '•  t  1  «■  -(  ■  »  I)  -  )  (  ,  )  ,3 .  ,  -  (  ,  ; 

\  .  i  I  n  ^  i  i  r  \  .  i  ,  t  t  ^  4  m  .  .  .  . 


C  PC (  I  +  1 t J  )-Y )~  EY (  I , J  )»DCSJP  *<PC  (  I  ,  J+l  )-Y) _ 

£  (  2,4  )=-  (  FGC  (  I  ,  J  )*<  2.-Sk(  I  ,  J  )-Z )*( Y-PO( I, J)  )-F0( I, J )*( 
1  Z- 

C  Sh(  I  , J )  )  -HKO 1 f  * ( PCI  I  +  1  , J  )-Y  )  -HKC  I  N* { PC (  I -  1 , J ) - PC  (  I  , 

1  J  )  ) 

C  -HKCJP*(FC(  1 1  J  + 1  )  - Y )  -HKOJtf*(PO( I f J-l)-PO( It J ) )+QO< It 
1J  ) _ 

E  *(lC+L12*(Y+PC(IfJ)))) 

RETURN 
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C 

C 

C  CALCttATES  INTERMEDIATE  FUNCTIONS  INVOLVING  K R 

C  h  ETC. 

C 

C _ 

CCRRCN  PV\  (  19, 19  )  ,  PG(  19, 19  )  ,  Sk(  19, 19)  ,QW(  19,  19)  ,QGl  19, 1 
IS  )  , 

A  F M 19,19),FWC(19,19) ,FQ( 19,19) ,FOC ( 19 . 19 ) ,HX ( 19 , 19 ) , 

8  HY< 19* 19 ) * A (4*4 ) * AZ( 4 ) *Xi <9 ) *  X2 ( 9 ) *  Y1 (9 ) * Y2 (9 ) * WF ( 9 ) 
CCRRCN  HKV\  I  R  ,  HK  V\  JR  ,  HKK  IP»HKtoJP, 

_ A  FKL.IR,HKCJR,HKCIP.HKCJP,SIR,SIP,SJR,SJP,X, Y,Z, I J  , I » J» 

IRSh, 

e  RSW2,XC,YC,ZD,VISVv,VISC,QCIL,QWATER,V0,V12,U0,U12,  IT, 

_ . _ UJUt _ _ _ _ _ _ _ _ _ 

C,JT,JTR,JTP,ITP,R,VF,PCGRAD,BO,B1,B2»B3,B12,B24,AO*A1, 
C  A2, A3  ,  A4  ,  AC  2,  A  2 2 ,  A34 ,AC4 , CO, D I ,02 ,C3 ,D4,D02,BZ ERG, CA1 
_ 1  .CA2 _ 

E  ,CA3  ,CB1  ,CB2»CB3,CCL»CC2»CD1,CD2,CD3,PSMIN,SMAXK0,CD3 
12, 

_ £  CA12,CB12,SRAXK2,RC,RCR,MW,M wR 

REAL  Kk,KC,T 

KW  (  T  )  =  BC*  (  T  — RSF  2  )**MW 

_ KC(T)=AC*(SRAXK2-T)**RG _ 

IF (S  IM  .LE.  RSV\2 )  GC  TG  201 
FKfe  IR=KW (  $  I  R  )  *  F  X  (  I  —  1  , J ) 

. J&„JC_2&2 _ _ _ _ _ _ _ _ 

201  FKk  IR=0.0 

2C2  I  F  (  S  J  R  .LE.  RSV\2  )  GG  TG  2C3 
_ FKV*JR=Kk  (  SJR  )*FV  (  I  ,  J-  1  ) _ 

GC  TC  2C4 
2C3  FKhJR=C.C 

2  C  A  IF  (SIR  .GE.  S„RAXK2)  GC  TO  215 

F  KC  I  R  =  KO(SIR)*FX(  1-1  ,  J) 

211  I F ( S  J  R  .GE.  SMAXK2)  GC  TO  216 
_ _ F  KC J  R  =  KG  (  S JR ) »FY (  I  ,  J  —  i  ) _ _ 

C-C  TC  22C 

215  FKCIR=C.C 

CC  T C  2  1 1  . .  _ . . . . . . . . 

216  HKOJR=C.O 

220  I F ( S  I P  .LE.  RSW2  )  GC  TC  2C5 
_ FKk  I  P=KW ( S IP )*FX (  I , J ) _ 

GG  TC  206 
20 5  FKkIP=0.0 

2 C 6 . 1  F  t  SJP.  L  E  .  RSV>2  )  GO  TO  207 . ... . . . . . . . __ 

FKWJPsKW ( SJP )*FY ( I , J) 

GC  TC  2CB 

_ 207  FKWJP-C.Q _ 

208  I F ( S  I P  .GE.  SRAXK2)  GC  TO  235 
FKC  I  P  =  K  C ( S  TP  )*FX {  I , J ) 

23  1  J  F  (  S  J  P  . G  E .  SR  A  X  K  2 )  GC  TO  236 _ 

FKC J  P=KO ( SJP ) *FY (  I , J ) 

GC  TC  237 

2  35  FKC  IP^C.C „ 
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(  L  ,  f  -  I  )  *  3'{MI2)/J<H=4IaI>H 

SOS  31  3D 

J . 3  =  M I  a  >M  IDs 
3  1  (sM  .3  3.  312)31  s3s 
i  !  -  ,  !  >  -  •  ;  ■  '  )  -  -a.  I 

AO^  3  T  33 
D.  J=MLW>H  £ 

cIS.  (  r  30  (SXXA-12  .30.  412)31 
It  ,  1  -  I  i  :  •  (  1  )  H  =  M  I  •  t  I 

rtlS  1  (  S  i  X  A  'Ir*  .3  ).  MU  2)  31  [  I  S 
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31  JO 

. )  .  i  =  M  1  0  X  \  -Ms 
I  I  s  3 T  33 
.3  =413X4  Ms 
)S  3  T  1  (  s  -3  2  .  J .  M2)  II  OSi 

(  1  ,  !  )  \  I  •  (  f  *  )  H  3  1  A  A  3 

>  JS  it  3  3 
J  .  J  =  3  !  X  i  • .  J  ^ 

1  (  s  -  .33.  Mi’)  i  I  d  3  S 

( ! .  ,  I  )  1  t  (  It  2  )  .  X  =  m. /,  i  i 
ttDS  3T  03 
.  -  it  I  Ms 
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(!,!!■  (Mi  )  -  H  113  I 

i  i  (  >  .  3  .  4  L  2  )  II  i  ‘  . 
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V  £  S.  37  33 
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GC  TC  23  1 

236  HKCJP=C.C 

237  CCMIME 
RETLfiN 
ENC 
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c 

c 

c 

SCLLTICN  CF  LINEAR  ALGEBRAIC  EQLATICNS  IN  EACH 

c 

c 

c 

ITERATICN  BY  GALSSIAN  ELININATICN 

CONNCN  PVv(19,19),P0(19,l9),SU19,19),QW(19,19),Q0(19,l 

IS  )  , 

A  Fw( 19, 19  )  ,FWC(  19, 19) ,FO(  19,  19) ,FCC( 19, 19) ,HX< 19, 19 ) , 

6  EY(  19,19)  »  A  (  4  »  4  ) , A  Z ( A )  , X 1 ( 9  )  ,  X  2  (  9  ) »  Y  1  {  9  )  »  Y  2  t  9  )  ,WF(9) 

C  C  R  R  C  N  HKWII*,HKVvJN,HKMP,HKWJP, 

A  HKOIN  ,hKQJN,HKCIP»HKCJP»SI|Y»SIPfSJH»SJP,X»Y,Z»  IJ,  I  ,J, 

IRSh, 

B  RSh2,XC,YC,ZD,VISk,VISC,QGIL,QVsATER,V0,Vl2,U0,L12,IT, 

1  ITN 

C,JT,JTM,JTP, I  TP  »  M , VF , PCGR AD , BO , B 1 , B2 , B3 , B 1 2 , 624 , AO , A 1 , 

C  A2,A3,A4,AC2,A22»A34,A04»CC»Di,D2»D3*D4,D02»BZER0,CAl 

1 »  C  A  2 

E  ,CA2  ,CB1  ,CE2,CE3,CC1  ,CC2  ,CDl,CD2,CC3,PSNiIN,SMAXKC,CD3 

1  2  , 

F  CA12*Cei2,SMAXK2,MO,l*OM,Mh.NWM 

7  C 

L  =  C 

L  =  L4  1 

F  I  VCT  =  A < L  ,L  ) 

I  Z  =  L 

CC  71  K=L,2 

IF  (  AES ( P  I  VCT  )  .GE.  ABS ( A ( K  + 1  ,  L  )  )  )  GC  TO  71 

71 

F  I  VCT  =  A ( K4  1  ,  L  ) 

IZ  =  K+  1 

CCNT  I  NLE 

IF  <  I  Z • EG  •  L )  GC  TC  74 

CC  72  K K  =  L  ,4 

AZ ( KK ) =A ( L ,KK ) 

73 

74 

A ( L , K  K )  =  A (  IZ,KK  ) 

A  (  IZ,KK)  =  AZ(KK) 

L  P  =  L 4  1 

75 

CC  7  5  K  K  =  L  P  ,  4 

A(L,KK)=A(LfKK)/A(L»L) 

CC  76  I K  =  L P  »  3 

76 

CC  7  6  J K  =  L  P  ,  4 

A(  I K  ,  JK  )  - A (  IK,JK)-A(L»JK)*A(  IK,L) 

IF(L. EG. 2)  CC  TC  77 

77 

GC  TC  7  C 

Z C  =  A ( 3,4 ) /A ( 3, 2  ) 

Y  C  =  A ( 2  »  4 ) - A ( 2 , 3 )*ZC 

XC=A<1,4)-All,2) $  Y  C — A (  1 ,3 ) *ZC 
RETURN 
E  !\  C 
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